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Return of Beneath Apple ProDOS 


We've just received our copies from the newest printing of 
Beneath Apple ProDOS, so that excellent reference is available 
again. Our thanks to Quality Software for keeping such valuable 
information at our fingertips. 


However, we do not expect that Quality Software will reprint 
either Understanding the Apple II or Understanding the Apple //e, 
s0 once the supplies run out that's the end of those books. If 
you are at all interested in the innermost details of how your 
Apple hardware works you need to get one of these outstanding 
books by Jim Sather. We've never seen anything to compare to 
these books for the wealth of information at the chip-by-chip 
level. See the S-C Software ad on page three for our price. 


Latest from Lancaster 


Don Lancaster just sent a copy of his latest book, Ask the Guru. 
Computer Shopper readers will recognize the title of his monthly 
column in that publication; this book is a collection of the 
columns from March, 1985 through March, 1987. Here are all of 
Don's writings on the inner workings of our favorite computer, 
especially how to get the most out of AppleWriter and/or the 
LaserWriter printer. 


This is undoubtedly the best-printed self-published book I've 
ever seen: each copy is directly printed out on Don's Laser- 
Writer! Even subscribers to Computer Shopper will want this 
book, just to have all the information in one place rather than 
strung out through many pages of oversized newsprint. $24.50 
from Synergetics, Box 809, Thatcher, AZ 85552. (602) 428-4073. 


Selective CLEAR for Applesoft Variables.........Bruce E. Howell 


A friend of mine wrote an Applesoft program that processes 
Classroom grades. Certain information, such as the teacher's 
name, would be loaded and used throughout the program, while 
Other information, such as student grades, had to be cleared 
often. One solution would be having a loop to clear certain 
variables. This would be quick and easy with simple variables, 
but with multi-dimensioned arrays this can be time consuming. 
Another solution would be to open a temporary file and store 
the static information there or to POKE it in a safe place in 
memory, such as at $300, issue the CLEAR command to clear all 
Applesoft variables, then re-load the variables. My soluticn 
to the problem is Selective Clear, which allows you to select a 
range of real, integer or string variables to clear, or to 
clear an entire, specific array. Note that Selective Clear 
sets real and integer variables to zero, and string variables 
to a null string. Applesoft's CLEAR command deletes the 
variables, requiring arrays to be re-defined after the CLEAR. 


USING SELECTIVE CLEAR 


Selective Clear works with either ProDOS or DOS. To follow 
ProDOS convention, it is loaded at $2000, then moved up in 
memory to where it is used. If your Applesoft program is 
short, you can load Selective Clear from within your program. 
A longer Applesoft program would be overwritten by the initial 
loading of Selective Clear. To avoid this, use a short 
Applesoft program to load Selective Clear, then run the main 
program as follows: 


10 PRINT CHRS$(4) “BRUN B.SEL.CLEAR 
20 PRINT CHR$(4) “RUN MAIN. PROGRAM" 


To use Selective Clear in your application, it is best to 
define your simple variables and group them alphabetically so 
that those that you want to clear often are all at one end or 
the other of the alphabet. The syntax for simple variables is: 


& $ > G : REM clear all string variable greater than G 
& © < M : REM clear all integer variables less that M 
& R > T : REM clear all real variables greater than T 


Following the ampersand, use $, % or R to indicate string, 
integer or real variables to clear. Following the variable 
type use the greater than (>) or less than (<) sign, then a 
Single alpha character to show the range. 


Array variables are cleared individually by placing the actual 
variable to clear in parenthesis following the ampersand as 
follows: 


& (ABS) =: REM To clear the string array AB$ 
& (M) : REM To clear the real array M 
& (TT%) : REM To clear the integer array TT% 
Note that if you try to clear an array that has not been 
defined, you will get an error message of ARRAY ERROR. 
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S-C Macro Assembler Version 2.0......DOS $100, ProDOS $100, both for $120 
Version 2.0 DOS Upgrade Kit for 1.0/1.1/1.2 ownerS......ccccvsccvesese S20 
ProDOS Upgrade Kit for Version 2.0 DOS OWnerS...cccccccccccccccccceeee 930 
Source Code of S-C Macro 2.0 (DOS or ProDOS)........each, additional $100 
S-C DisAssembler (ProDOS only)...without source code $30, with source $50 
RAK-Ware DISASM (DOS only).......without source code $30, with source $50 
ProVIEW (ProDOS OTE LY) is asd sesso bie: Soe e ey Sal oe SS He ee aan te Slee Wad ale WSR ew ae ee GeO 
Full Screen Editor for S-C Macro (with complete source code)..........$49 
S-C Cross Reference Utility......without source code $20, with source $50 
S-C Word Processor (with complete source Code) .c.cccccccccesccccecseees D0 
DP18 and DPFP, including complete source and object code......ceceeees $90 
ES-CAPE (Extended S-C Applesoft Program Editor) ...ccceuee 

Including Version 2.0 With Source Code.........-$50 
ES-CAPE Version 2.0 and Source Code Update (for Registered Owners) ....$30 
Bag of Tricks 2 (Quality Software) .....ccccccccscccccccccese (949.95) $45 
MacASM -- Macro Assembler for MacIntosh (Mainstay)......---($150.00) $50 
S-C Documentor (complete commented source code of Applesoft ROMS).....$50 
Cross Assemblers for owners of S-C Macro Assembler.....$32.50 to $50 each 

(Available: 6800/1/2, 6301, 6805, 6809, 68000, Z-80, 2-8, 8048, 
8051, 8085, 1802/4/5, PDP-1l1, GI1650/70, others) 

Beagle Bros. Applesoft Compiler (ProDOS only) .......eeeeeee2($74.95) $65 


AAL Quarterly DiSkS....cccccccccccccccccceee/@ach $15, or any four for $45 
Each disk contains the source code from three issues of AAL: 
Jan-Mar, Apr-Jun, Jul-Sep, and Oct-Dec. 
(All source code is formatted for S-C Macro Assembler. Other assemblers 
require some effort to convert file type and edit directives.) 


Diskettes (with hub rings)......cccccccsecccsecseee package of 25 for $15 
Vinyl disk pages, 6"x8.5", hold two disks each......ccccceeeseee lO for $6 
Diskette Mailing Protectors (hold 1 or 2 disks).........2++-40 Cents each 

(Cardboard folders designed to fit 6"X9" Envelopes.) or $25 per 100 
Envelopes for Diskette MailerS......cccccccccscvcecccceveseee 6 CeENtS each 


65802 Microprocessor (Western DeSign Center) .ccccccccccccccccssesese $29 
quikLoader EPROM System (SCRG) ...ccccvcccscccccccccsccscccsces (S179) $170 
PROMGRAMER (SCRG) .ccccccccccsccccvccccccvsccccscccscesccese (9149.50) $140 
Minuteman 250 Uninterruptible Power Supply... ..cccscscccccccees ($399) $320 


"Apple //gs Technical Reference", PisCher....cevesecveceeses ($19.95) $19 
"65816/65802 Assembly Language Programming", Fischer........($21.95) $20 
"Programming the 65816", EyeS..c.ccccccccccccccscccscccscvese (922.99) $21 
"Apple //e Reference Manual", Apple Computer........eeeee0ee($24.95) $23 
"Apple //c Reference Manual", Apple Computer......ceeseeseoe ($24.95) $23 
"ProDOS Technical Reference Manual", Apple Computer.........($29.95) $27 
"ProDOS Inside and Out", Doms & WeisShaa@r...ccccccccccsececes (916.95) $16 
"DOStalk Scrapbook", Weishaar & KeErS@y..cccccccsccceseeseeees (914.95) $14 
“Beneath Apple ProDOS", Worth & Lechner....ccccccccecscveeeee (919.95) $18 
"Beneath Apple DOS", Worth & LeECHner.....ccccceseseccccsesee (919.95) $18 
“Inside the Apple //c", Little... .c.ccccsccccccccsccccesccesee (919.99) $18 
"Inside the Apple //e", Little........... site am teretee Secs eecceeee ($19.95) $18 
"Understanding the Apple //e", Sather... .cccccccsccccssecece ($24.95) $23 
“Understanding the Apple II", Sather...cccccccccscscccccsece (922.99) $21 
“Apple II+/IIe Troubleshooting & Repair Guide", Brenner.....($19.95) $18 
"Apple ][ Circuit Description", Gayler.....cccccccscccccevee ($22.95) $21 
"Assem. Language for Applesoft Programmers", Finley & Myers.($18.95) $18 
“Now That You Know Apple Assembly Language...", Gilder......($19.95) $18 
“Enhancing Your Apple II, vol. 1", Lancaster.........eeee+--($15.95) $15 
“Enhancing Your Apple II, vol. 2%, Lancaster.....cccccceceee ($17.95) $17 
“Assembly Cookbook for the Apple II/IIe"“, Lancaster.........($21.95) $20 
“Microcomputer Graphic8", MY€LB.cccscccccccccccccesesecesess ($14.95) $14 
“Assembly Lines -- the Book", WagGneL...cseveccscevccesesseee (919.95) $18 
“AppleVisions", Bishop & GrOBSDELrGer....ccccccccccccsecccere ($39.95) $36 


* On these items add $2.00 for the first item and 
$.75 for each additional item for US shipping. 
+ Inguire for shipping cost. 
Foreign customers inquire for postage needed. 
Texas residents please add 7.25 % sales tax to all orders. 


*** S-C SOFTWARE, P. O. BOX 280300, Dallas, TX 75228 *** 
bade (214) 324-2050 wae 
*** Master Card, VISA, Discover and American Express *** 
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ENTERING THE PROGRAM 


To enter Selective Clear, you can use an assembler to type in 
the source code as listed. I use the ProDOS version of S-C 


Macro Assembler. You can also enter it directly into the 
monitor. If you do the latter, save it with the command: 


BSAVE B.SEL.CLEAR,A$2000,L$166 
HOW SELECTIVE CLEAR WORKS 


The first thing done is to identify which operating system is 
in effect, to properly reserve memory for Selective Clear. 

Then the routine is moved to the proper location in memory, the 
ampersand vector is set and control returns back to Applesoft. 


-To understand how simple variables can be selected and cleared, 
you must understand how variables are stored in memory. 
Locations $69,6A point to the start of a table of simple 
variables, normally set to LOMEM. For real and integer 
variables, the actual values are stored in the table, while for 
string variables the table contains pointers to where the 
strings are stored in memory (from HIMEM down). Each variable 
occupies seven locations or bytes in the table, the first two 
locations being the variable name. 


With real variables, the first byte is the positive value of 
the first character of the variable name. The second byte is 
the positive value of the second character of the variable 
name. For integer variables, both bytes are the negative 
values for the variable name, while with string variables, the 
first byte is positive and the second is negative. Depending 
on which variable type is selected, two different masks (MASK1l 
and MASK2) are used to determine if the current entry in the 
table has a variable name with the proper signs for the type 
you want to select. 


The other choice that Selective Clear needs to make is whether 
the variable in the table is less than or greater that the 
range that you have indicated. This is done by changing the 
program slightly each time it is called. If greater than is 
selected, then a Branch on Carry Clear (BCC) is placed where 
the variable name is compared to the selected range. Greater 
than stores a Branch on Carry Set (BCS). A no match of either 
the variable type or range skips to the next entry in the table 
until the end of the table is reached. 


If the variable name is within the selected range and the signs 
match the variable type selected, then Selective Clear clears 
the variable by storing zeros in the next five locations in the 
table. For real numbers, the first location contains a one 
byte exponent followed by four bytes of mantissa. Integer 
numbers have the high byte first followed by the low byte of 
the number stored in the variable. The last three bytes of the 
entry are not used. String variables have a one byte string 
length followed by the low and high bytes of the address where 
the string is stored. With strings, the last two bytes of the 
table entry are not used. 
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Memory locations $6B,6C point to the start of the array table. 
Variable names are stored in the same way as with simple 
variables. Since you will manually select which array to 
Clear, the routine finds the variable's location in the table 
by evaluating the expression within the parenthesis using an 
Applesoft routine at $DEB2, then searching the table for the 
variable name. The first two bytes following the name are an 
offset pointer to the next variable in the table. Selective 
Clear uses their value to determine when it is done clearing. 
The next byte is the number of dimensions present. It uses 
that value to bypass that number of sets of high-low bytes 
which follow, each set indicating the size of each dimension. 
After these sets of bytes is where the actual data is stored 
(or pointers to data if string arrays) in the same way that 
Simple variables are stored. To clear, the routine zeros all 
locations till it reaches the next array variable name. 


CUSTOMIZING THE ROUTINE 


I chose to clear arrays individually, since a normal program 
uses very few arrays. You can modify the routine to clear a 
range of arrays using the technique outlined for simple vari- 
ables. If you need to clear either simple variables only or 
arrays only, you can shorten the routine enough to fit at $300. 
You could also modify the routine to set the variable to some 
required value, passed to the routine, instead of clearing it. 


a ®SAVE S.SEL.CLEAR 

02 7 

: Selective CLEAR 

0 Copyright 1987 by Bruce E. Howell, D.D.S. 

0 Y 3531 Cartwright Rd. 

: Missouri City, Texas 77459 
0 


Format for simple variables is: &type>range 
&type<range 


Where ‘type' is: to clear string variables 
to clear integer variables 
to clear real variables 

‘range' is a singl lpha character. 
Variables greater 69) or less (<) than 
this character are cleared. 


Format for array variables is: 


& c$) to clear the string array C3 
& (C to clear the real array 
& (CZ) to clear the integer array C% 
B1- CHRGET .EQ $00B1t—~—<“i‘:™~S~™S 
BT- CHRGOT .EQ $00B7 
O3F5- AMPER .EQ $03F5 Ampersand Vector 
BEF8-— FREBUF .EQ $BEF8 PRODOS FREE BUFFERS 
BEF5- GETBUF ~-EQ $BEF5 ProDOS Obtain Buffer 
D412—= 50 ERROR .EQ $D412 PRINT ERROR 
D998- ADDON .EQ $D998 Add (Y) to ChrPtr 
D9A3- AN ~-EQ $D9A SCAN re so bey 
DEB2= PARCHK -EQ $DEB EVAL (EXPRES 
rE2C= 0O MOVMEM .EQ $FE2C MOVE MEMORY 


ee me ee eR eh ek ek eR eh eB me ee eRe ek me et ee me eh ed ee eh ek ek ee ek ed ek ed ed ed 
elojelololololelrololelelolofololojolofeleleolojlolelolololelelolololojolelololelelelso) 


ond 
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Global communications. 
Down-to-earth price. 


$219 


a re ee 


COPYRIGHT 1987, 097. + 
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Introducing the Datalink“ modem. 
Get instant access to networks and databases 
—plus network memberships and discounts worth $177.95! 


Now you can tap into a world of information — without 
draining your resources. Our Datalink'“ modem lets your Apple 
IIGS, Ie or 11+ communicate with other computers, download 
free software from networks and bulletin boards, access 
database services and more. For a remarkably low price. 


The world at your fingertips. 

With the Datalink modem, you'll be able to draw informa- 
tion from thousands of databases. Send and receive electronic 
mail — even overseas. Join clubs and bulletin boards to 
exchange software or solve computing problems with other 
Apple users. Download free public domain software. And 
share files with personal computers and mainframes. 


There’s nothing missing 

on Datalink. 

Unlike the Smartmodem® 
Datalink comes with its own easy- 
to-use communications software 
in ROM and on disk that supports 
macros, file transfers, on-line 
time display, data capture and 
datascope mode. The software 
also allows you to store hundreds 
of phone numbers for auto dial- 
ing and log on. 

Because Datalink is 100% 
Super Serial Card compatible, you 
can also run virtually all other 
communication software, including 
Point-to-Point, Apple Access and 
ASCII Express, to name a few. 


Price 
Max. transmission rate 


Warranty period 


Software included 


Hayes AT 
command set 


Help screens 


On-board 
telephone jacks 


Fits any slot 
(even with fan) 


5 years 
at no charge 
YES 


The compact design allows Datalink to fit in any slot — 
including slots 1 and 2 of the IIGS with a cooling fan 
installed. Datalink operates at 1200 or 300 baud. Built-in 
diagnostics check for accuracy of data transmission, and 
Datalink lets you track the progress of calls either elec- 
tronically or via an on-board speaker. 


Introductory offers from popular networks included. 
When you purchase Datalink, you'll get a fee-waived mem- 
bership to The Source worth $49.95. $60.00 worth of free 
on-line time from News Net. A free $50.00 subscription to the 
Official Airline Guide. A free subscription to the GEnie net- 
work worth $18.00! And information on MCI Mail. 


Order today! 


Applied Pia To order or for more informa- 
Engineering Smartmodem tion, see your dealer or call 
Datalink 1200A sone 


Applied Engineering today, 9 a.m. 
to 11 p.m. 7 days. Or send check 
or money order to Applied 
Engineering. MasterCard, VISA 
and C.0.D. welcome. Texas resi- 
dents add 614% sales tax. Add 
$10.00 outside U.S.A. 


$439 
1200 baud 


2 years or 
4 years for $75 


Fras oa Applied Engineering 


The Apple enhancement experts. 


Box 798, Carrollton, TX 75006 
(21:4) 2-41-0060 


Smartmodem 1s a registered trademark of DC Haves Corporauon 
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3C=- 1420 SSA ~EQ $3C, 3D SOURCE START ADDRESS 
E- 130 SEA ~ EQ gE BE SOURCE END ADDRESS 
2- mt : DSA ~-EQ $42,43 DESTINATION START ADDRESS 
69- 1420 VARTAB .EQ $69,6A START OF VARS 
6B- ye ARYTAB .EQ $6B,6C START ARRAYS 
6D-— 1480 STREND .EQ $6D,6E END OF ARRAY 
6F- pre FRETOP .EQ $6F,70 
3- 1500 HIMEM .EQ 13903 
le 1510 VARNAM .EQ 1,82 
E0O- 1520 LOC ~-EQ $E0,E1 
E8- Iie HOLD ~EQ $E8,E9 
E4- 1540 RANGE .EQ $E4 
E5- 12, MASK1 .EQ $E 
E6- . A MASK2 .EQ 3E 
NC 120 JMP.OP .EQ $4C JMP OP CODE 
80- re SK ~EQ $80 
90- 1600 BCC.OP .EQ $90 BCC OP CODE 
BO-= a BCS.OP .EQ $B0 BCS OP CODE 
1 80 »MA SET 
1640 LDA #]2 
1630 STA 
1660 LDA 2 
1Ore STA J1+1 
te ae 
1700 ~MA MOV 
1710 LDA J2 
1720 STA ]1 
1730 LDA Jj2+1 
i : st 1+1 
Ve Wase2ee ee a eetcoedtee een 
1758 OR § 000 
2000- ti -TF B.SEL.CLEAR 
2000- AD 00 BF 1480 INIT LDA $BFOO MLI LOCATION 
2003- C9 AC 1810 CMP #JMP.OP SEE IF ACTIVE 
2005- FO OE 1820 BEQ PRODOS YES DO PRODOS 
pee #~~-Assume in DOS 3. 3------------ 
2007= AQ 00 1840 DOS LDA #SELCLR 
sO0R- BE GR «1880 STA FRETOP 
200D= AX 98 1e78 LDA /SELCLR 
Sori- 88 79 1890 STA FRETOPS 
2013=- DO 08 1900 BNE DOMOVE ALWAYS BRANCH 
1910 #---Assume in ProDO0S------------- 
2015= 20 F8 BE 1920 PRODOS JSR FREBUF FREE ALL BUFFERS 
2018= AQ 02 bee LDA #2 GET TWO PAGES 
201A=- 20 F5 BE 1940 JSR GETBUF 
1950 #--—-Move routine into hole---~--- 
201D-= 1960 DOMOVE >SET SSA,FROM Starting address of source 
201D- A9 48 0000> LDA #F ROM 
201F= 85 3C 0000> STA SSA 
seei- 08 59 gan; bPk (etm 
- + 
2025- at >SET SEA, THRU Ending address of source 
soar a2 sé Sete ke 
- S SEA 
2029—- AQ 21 0000> LDA /THRU 
202B- 85 3F 0000> STA SEA+1 
202D- 1980 >SET DSA,SELCLR Starting address of destination 
S0or- 82 42 —-go00> STA DSA’ 
2031- AQ 98 0000> LDA /SELCLR 
S03h= 2b ce FE 1990. JSR MOVMEM 
2034 42 ee 03 Aare a ey SET UP AMPERSAND 
203D- 2020 >SET AMPER+1,SELCLR 
203D= AQ 00 0000> LDA #SELCLR 
aa ak TO 
2044- 8D FT 03 0000> STA AMPER+1+1 
2047- 60 26 : RTS RETURN 
2050 FROM 
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2060 -PH $9800 WHERE WE END UP 
9800- 20 B7 00 2070 SELCLR JSR CHRGOT Get char after "&" 


9803- AO 80 2080 LDY #MASK If "R":; X=$80, Y=$80 
9805- A2 80 2090 LDX #MASK If "$"; X=$80, Y=$00 
9807=- C9 52 2100 CMP #'R' If "S$": Xz 00, Y=$00 
9809- FO OF 2110 BEQ .3 2, REAL VARI ABLE 
980B- C9 24 2120 CMP ed SEE I STRING 
980D=- FO 09 2130 BEQ . SEF STRING VARIABLE 
Q980F- C9 25 2140 CMP Hy SEE IF INTEGER 
9811- FO 0 2150 BEQ . ~ee INTEGER VARIABLE 
3g 13- 4C A6 98 2160 JMP SPARC: ARRAY .VARIABLES TRY ARRAY 
9816—- A2 00 2170 .1 LDX e208 CHECK FOR NEG 
9818=- AO 00 2180 .2 LDY #$00 
981A- 86 E5 2190 .3 STX MASK1 SET MASKS FOR 
981C- 84 E6 2200 STY MASK2 TWO” CHAR. NAME 
2210 #--=-Get and save relop---<---<----- 
981E=- 20 B1 00 2220 JSR CHR GET G T FUNCTION <> 
9821- 8D 66 98 2230 STA FUNC 
2240 #---Get and save letter---------- 
oR oq 20 Bi 00 2250 JSR CHRGET GET RANGE OF Variable Name 
827—- 85 EY 2260 STA RANGE 
2270 f---Modify code for relop-------- 
9829— AD 98 2280 LDA FUNC 
982C- C9 CF 2290 CMP #$CF SEE ne ty > 
982E- DO 06 2300 BNE .4 ‘ 
9830- E6 E4 2310 INC RANGE SO > 3 RANGE Rs 
9832- AQ 90 2320 LDA #BCC.OP SET UP GT 
aR se DO OB $330 BNE .6 see Trlt 
9836- C9 D1 2340 4 CMP #$D1 SEE IF oy < 
9838- FO 05 2350 BEQ 5 Paras home & 
983A= A2 10 2360 LDX 4h REPORT SYNTAX ERROR 
983C=- 4C 12 D4 $345 JMP ERROR 
983F- AQ BO 2380 2 LDA #BCS.OP SET UP LT < 
9841- 8D 66 98 : ac : STA FUNC FUNNY TRICK 
2410 SEARCH.SIMPLE. VARIABLES 
9844- AO 00 2420 LDY #0 FOR INDEX 
9846- 2430 >MOV LOC,VARTAB START OF VARIABLE TABLE 
9846- A5 69 0000> LDA VARTAB 
9848- 85 E0 0000> STA LOC 
Q984A- AS 6A 0000> LDA VARTAB+1 
984C- 85 E1 0000> STA LOC+1 
Q84E- AS El 2440 SIMPLE LDA LOC+1 ARE WE DONE? 
ane 9. C5 6C 2450 CMP ARYTAB+1 
52- DO OC 2460 BNE .1 
9854- A5 EO 2470 LDA LOC 
gR28- C5 6B 2480 CMP ARYTAB 
58- 90 06 2490 BCC . 
985A- 20 A3 DY 2500 JSR SCAN YES SCAN EOL 
985D= 4C 98 DI oe, ‘ JMP ADDON GO APPLESOFT 
2520 #--n2-2------- eee oe -- 
O- B1 EO 2530 .1 LDA TF TF” Y GET VARIABLE NAME 
- 2 a} 2540 AND MASK HIGH BIT 
-C . ° i CMP R COMPARE TO RANGE 
9866- 90 08 oe e FUNC BCC #@8Qpcode modified to BCC or BCS### 
9868—- B1 EO 2590 LDA ae GET VARIABLE TYPE 
986A- 29 80 2600 AND #MASK 
986C=- 45 E5 2610 EOR MASK1 
986E~ DO 13 2620 BNE . 
9870- 20 9F 98 2630 .1 JSR INCLOC 
9873- 20 9F 98 2640 JSR INCLOC 
384 - AS EO 2650 .2 LDA LOC SKIP FIVE 
78= 1 2660 CLC 
9879=- 69 05 2670 ADC #$05 
987B- 85 EO 2680 STA LOC 
987D- 90 CF 2690 BCC SIMPLE 
he E6 E1 2700 INC LOC+1 
98%41—- BO CB Abe . BCS SIMPLE ALWAYS 
3883- 20 OF 98 2730 .3 JSR INCLOC 
9886- Bi EO 2740 LDA (LOC),Y 
9888- 29 80 2750 AND #MASK 
98&A=- 45 E6 2760 EOR MASKe2 
988C- FO E8 2770 BEQ .2 »».not correct type 
2780 #---Clear the value-------------- 
988E- 20 9F 98 2790 JSR INCLOC PASS 2ND 
9891- A2 05 2800 LDX #5 
9893- AQ 00 28 10 LDA #0 Store zero in 5 bytes 
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17 Meg lilie/1Meglic 


Want the best & easiest-to-use (most support) RAM card on 
the market — at the best price? Buy Checkmate Technology’s 
State-Of-The-Art MULTIRAM RGB RAM CARD™ from us 
w/BATTERY BACKED-UP RAM options that save pro- 
grams like AppleWorks for years! FAST CHEAP RE- 
PLACEMENT FOR HARD DISKS, USER EXPANDABLE 
TO 17 MEGS, (100%) compatible w/all 3rd party software/ 
hardware, 65C816 option ($147), sharp 80 columns/Double 
Hi-Res, & FREE RGB! Direct substitute for Ramworks I-III" 
(we think it’s better) by Applied Engineering (also known as 
Preferred Computing) or Apple 80 col cards, has a 5 YR 
WARRANTY, 15 day money back guarantee, & FREE 
AUTOMATIC SOFTWARE UPDATES ONLY FROM US! 


MultiRam RGB expands to 1 Meg + optional BATTERY 
PROTECTABLE MultiRam Plus piggyback expandable to 
16 Meg’s. MultiRam ile expands to 768k. The software & 
manual is the best & easiest-to-use on the market — without 
exception! 


FREE APPLEWORKS EXPANDER SOFTWARE W/EVERY 
CARD — loads ALL versions of Appleworks (in 30 seconds w/ 
AW 2.0), even printer routines, runs faster, Desktop 2048k, 
23,000 + records & 4,800+ word proc lines, segments lg files 
onto multiple disks! FREE AW TIME/DAY/DATE ON-SCREEN 
w/ clock, AUTO-COPY TO RAM, PRODOS/DOS 3.3. RAM 
DISK & TEST. Optional CP/M & Pascal Ram disks ($20/ea)! 


MultiRam MuitiRam 
RGB Card lle Card 


64k 129. 
320k 
576k 
832k 


1024k 


MultiRam 
MultiRam 
MultiRam 
MultiRam 
MultiRam 
MultiRam 
Pius Piggyback 
MultiRamPlus ... 219. .. 
MultiRamPlus ... 269. ... 
MultiRam Plus ... 316. 
1024k MultiRamPlus ... 359. ... 
2-17 meg MultiRamPlus ... Call 
Battery/AC Kit (for Plus) << |; eae 


256k 
512k 
768k 


NEW 


WHY BUY FROM COIT VALLEY COMPU- 
TERS RATHER THAN SOME MAIL ORDER 
HOUSES? Only we offer a 15 day MultiRam 
complete money back satisfaction guaran- 
tee, extra software, more support, free auto- 
matic software updates, free 64k w/ each 
256k/512k/768k lle/RGB card. We know the 
products, & stock them for fast shipping! CALL 
FOR SUPPORT, QUESTIONS, PRICES, DIS- 
COUNTS. SCHOOLS & GROUPS WELCOME. 


COIT VALLEY COMPUTERS 
(214) 234-5047 


Checkmate Technology’s MultiRam CX card easily ex- 
pands your lic to 640k and has a CX+ Piggyback to add 
another 512k (1152k total)! It’s 100% compatible with all llc 
software/hardware & upgradable with a 65C816 kit ($95) — 
all at about 50% less power than Z-RAM™! Has the SAME 
FREE SOFTWARE/UPDATES & 5 YR WARRANTY AS lle 
CARDS. Buy a C-VUE fiat panel display for $287 w/ 512k 
or greater card. 


256k MULTIRAM CX 

512k MULTIRAM CX 

768k MULTIRAM CX Combo 
1024k MULTIRAM CX Combo 


256k MULTIRAM CX+ 
512k MULTIRAM CX+ 


1200 Baud lic Modem (add $20 for cable) 
Clip-on lic Rechargable Battery 

lic Flat Panel Display (w/ 512k > Mram) 

lic System Clock 


147. 


Cermetek 1200 internal modem lle/l+Algs . 148. 
(+ FREE Source subscription/ VT 100 Shareware/ 
ASCII Express & ProTERM™ Setup Instructions) 


Slot 1-7 Ram Card for li+, lle, Laser 

ProAPP 20 Meg Hard Disks (+ FREE software) 
Apple ile Enhancement Kit 

Apple lligs 

Apple 3.5 800k Unidrive (ile/lic/llgs) 

Super Serial Compatible Card 

RamPak 512k gs RAM card 

Apple Compatible Drive Ile/Il+ (ligs/lic + $19) 
Clockworks Clock (Thunder/Time HO™ compat) .... 
13” RGB Monitor w/ cables (req. RGB card).. 
Heavy Duty Power Supply it/li+ /Ile 

lle Programmable Numeric Keypad 

System Saver Fan (I1/Il+ /lle) 

Uninterruptable Power Supply 250 watt 


AutoWorks (Best AW Macro + more) .. 
FontWorks (Best AW sideways/Fonts & more) 
Pinpoint Program 

Pinpoint Document Checker (Best Speller) 
Copy Il Plus 7.3 (Best ProDOS Utility) 
ProTERM Modem Software 

ASCH Express Modem Software 

VIP Professional (Lotus Clone. Specify Comp) 


Terms: Add $4-Ground or $6-Air shipping & phone # toeach U.S. 
MultiRam card order (foreign orders/FPO/APO extra). Add 3% for 
MasterCard/Visa/Am Exp (include expir date) & P.O.'s. For fast 
delivery send Cashier’s/Certified check/Money Order. C.O.D. 
(add $5) & personal checks accepted (allow 16 days). Tex res add 
7 Va% tax. Software non-returnable. 

Ordering: PRINT Name & address, Res & Bus phone, credit card 
name/number/expir date where appropriate, qty/description/ 
price/shipping charges if known. Call for questions. 


Autoworks, Ramworks Ill Timemaster Il HQ 2 ram respectve trademarks of Software Touch Applecs 
Engineering Prices subject to change 


14055 Waterfall Way 
Dallas, Texas 75240 
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9895- 91 EO 2820 .4 STA (LOC) ,Y 
9897- 20 9F 98 2830 JSR INCLOC 
Q89A- CA 28h0 DEX 
g89B- DO F8 2850 BNE .4 
89D- FO AF 2860 : BEQ SIMPLE ...always 
ogRr- E6 EO 2880 INCLOC INC LOC 
Al- DO 02. ~=—-2890 BNE .1 
98A3- E6 Et 2960 INC LOC+1 ADVANCE HIGH 
98A5- 60 2910 1 RTS 
2930 SEARCH. ARRAY . VARIABLES 
98A6- 20 B2 DE 29h0 JSR PARCHK ERROR IF NOT 
98A9- 2950 >MOV LOC, ARYTAB START OF ARRAY TABLE 
9849 AS 6B ~—- 0000> LDA ARYTAB 
BA - 85 EO 00005 STA LOC 
98AD- A5 6C 0000> LDA ARYTAB+1 
Q8AF- 85 E1 0000> STA LOC+1 
98B1- AO 00 2960 .1 LDY #0 FOR INDEX 
98B3- B1 EO 297 LDA (LOC),Y GET 1ST. CHAR. 
98B5- FO 62 29 80 BEQ . NONE PRESENT 
98B7- C5 81 2990 CMP VARNAM SEE IF SAME NAME 
98B9- DO 40 3000 BNE .5 FIND NEXT ARRAY 
98BB- C8 010 INY 
98BC- B1 EO 020 LDA (LOC),Y GET 2ND CHAR. 
98BE- C5 82 3030 CMP VARNAM+1 
98CO- DO 39 OhO BNE .5 FIND NEXT ARRAY 
98C2- C8 3090 INY PASS 1ST NAME 
98C3- B1 EO 060 LDA (LOC),¥ GET LOW OFFSET 
98C5- 18 3070 CLC CLEAR CARRY 
98C6- 65 EO 080 ADC LOC ADD TO CURRENT 
8Cc8- BR EB 090 STA HOLD LOW END OF ARRAY 
8CA- C 100 INY 
98CB- B1 EO 3110 LDA (LOC),Y GET HIGH OFFSET 
98CD- 65 E1 120 ADC LOC+1 ADD TO CURRENT 
gBCr - 85 EQ 130 STA HOLD+1 HIGH END OF ARRAY 
D1I- C 140 INY 
98D2- 20 9F 98 3150 .2 JSR INCLOC 
98D5- 88 3160 DEY 
98D6- DO FA 3170 BNE .2 
§8D8- B1 EO 180 LDA (Loc),Y # OF DIMS 
Q8DA- AA 3190 TAX COUNTER 
98DB- 20 9F 98 3200 JSR INCLOC PASS # DIMS 
98DE- 20 9F 98 3210 .3 JSR INCLOC PASS SIZE H 
98E1- 20 9F 98 3220 JSR INCLOC PASS SIZE L 
Q8E4- CA 3230 DEX 
98E5- DO F7 3240 BNE 3 
98E - AQ 00 32 0 LDA f 
E9- 91 EO 260 .4 STA (LOC),Y 
98EB- 20 9F 98 32 0 JSR INCLOC 
98EE- A6 EO 280 LDX LOC SEE IF END OF 
8FO- EX EB 290 CPX HOLD THIS ARRAY YET 
8F2- DO F5 300 BNE .4 NOT END OF ARRAY 
BF A6 EI 10 LDX LOC+1 CHECK AGAIN 
BF6- EX E 20 CPX HOLD+1 
gg -DOE 30 BNE . 
FA- 60 0 RTS RETURN BASIC 
3350 #---Find Next Array-~-<-----<----- 
Q98FB- AO 02 60 . LDY #$0 
O8FD- EO 9 LDA (LOC) ,Y 
O8FF- 18 0 CL 
9900- 65 EO 3390 ADC LOC 
9902- 85 E8 3400 STA HOLD NEXT ADDRESS LOW 
9904- C8 3410 INY 
9905- B1 EO 420 LDA (LOC) ,Y 
9907- 65 E1 3430 ADC LOC+1 
9909- 85 E1 40 STA LOC+1 NEXT ADDRESS HIGH 
990B- A5 E8 490 LDA HOLD 
990D- 85 EO 460 STA LOC 
990F- C5 6D 3470 CMP STREND 
9911- DO 9E 34 0 BNE .1 
9913- A5 E1 490 LDA LOC+1 
9915- C5 6E  ~—« 3500 CMP STREND+1 
9917- D0 98 3510 BNE .1 
3520 ® 
9919- A2 80 3530 99  LDX #$80 DIDN'T FIND 
91B- 4C 12 D4 3540 JMP ERROR say ARRAY ERROR 
3550 EP 
3560 THRU 
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A- Update... 


AE’s IIc System Clock now includes AppleWorks 2.0 support for time and date screen 
display and file stamping. This latest update now supports all versions of AppleWorks from 
1.0 to 2.0. Using the IIc System Clock’s pass-through serial port, the IIc clock can plug into 
either of the Apple IIc’s built-in modem or printer ports. Then, the modem or printer can 
plug directly into the IIc System Clock. Three ‘“‘AA” batteries keep the correct time for up to 
2 years before simple replacement is necessary. Current IIc System Clock owners can 
upgrade to the new IIc System Clock Utilities, version 3.0.2 for $10.00. 


ColorLink, a new version of the RamWorks RGB option, is now shipping. ColorLink allows 
connection of an IBM 9-pin RGB monitor or the new Apple IIGs analog color RGB monitor 


to the Apple IIe. AE’s previous version, called Digital Prism, supported the discontinued 
Apple Color 100 RGB monitor. ColorLink has the same $129.00 retail price and allows the 
user a choice of viewing either white, blue, green or amber text. Digital Prism will still be 
available for Apple Color 100 monitor owners. Feel free to call Applied Engineering for 
advice on RGB monitors you can use with your system. 


Parallel Pro will soon be shipping from Applied Engineering. Parallel Pro is an intelligent 
parallel printer interface card designed for the Apple II Plus, Ile and IIGs. Powerful features 


like Apple IIGs super high resolution graphics, mixed text and graphics. as well as screen 
dumps are fully supported by Parallel Pro. An optional 8K to 256K buffer card that plugs 
directly into Parallel Pro will also be available. The optional buffer card can accept standard 
64K or 256K chips in any combination up to 256K total. In fact. the 64K or 256K chips 
can be recognized by the optional buffer card individually or in a set of 8. (256K of buffer 
memory is equivalent to approximately 250 typewritten pages of text.) 


AE’s 16K Pocket Rocket is available to Apple If Plus owners to expand a 48K machine to 
64K of memory. The original 16K card had a chip count of 22. The new Pocket Rocket (it 
fits in a shirt pocket) has a chip count of only 4. The 16K Pocket Rocket has the Applied 
Engineering no hassle 5 year warranty. Applied Engineering continues to provide new 
product support and innovative developments for Apple I] Plus computers. 


Applied Engineering is shipping the new 2 MEG Plus for expanding RamWorks II and 
RamWorks III boards up to 3 Megabytes of memory. The 2 MEG Plus piggyback uses 


standard 1 MEG DRAMS and is expandable to 2 MEG. With | MEG installed, the 2 
MEG Plus retails for $499.00. Fully populated with 2 MEG, it sells for $799.00. 


Applied Engineering is seeking an experienced 6502 machine language programmer to 


develop software and firmware for its expanding line of Apple peripherals. Minimum 2 years 
of Apple programming experience required. Send your resume to Applied Engineering. 
P.O. Box 798, Carrollton, TX 75006, Attention Personnel. 


AAG. APPLIED ENGINEERING? 


The Apple enhancement experts 
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More Than Just Saving the Registers.......Bob Sander-Cederlof 


When you are writing a program it is frequently advantageous to 
code some parts aS subroutines. Some of these subroutines will 
be useful enough that you may wish to use them in lots of 
programs. In order to make them usable in a variety of 
circumstances, you have to be sure that they do not have any 
hidden side-effects. A subroutine for general use should not 
change any registers, any memory, or any part of the machine 
State unless the change is a desired function of that 
Subroutine. 


It is getting harder and harder to live up to that ideal, as 
the Apple II grows. In the beginning there was only the plain 
vanilla 6502, and at most 48K RAM. There was plenty of memory, 

‘plenty of stack space, plenty of zero page. Every subroutine 
could have its own private work area, and not worry too much 
about RAM or register usage. Machine state was pretty much the 
same all day long, with the exception of the text and graphics 
modes. But now we have the IIgs and the 65816 with more 
registers, megabytes of RAM to manage, bank switching, 
shadowing, interrupts, variable speed processing, emulation, 
and so on endlessly. 


It used to be enough to just save and restore the A-, X-, and 
Y-registers. For example, you might find the following at the 
beginning and end of a 6502 subroutine: 


Beginning End 

PHA Save A PLA Restore Y 

TXA TAY 

PHA Save X PLA Restore X 

TYA TAX 

PHA Save Y PLA Restore A 
RTS 


This code saves and restores all three machine registers, s0 
that they may all be used for any other purpose inside the 
Subroutine. 


On the other hand, you might not find this code, because most 
subroutines written in the years gone by used one or more of 
the three registers to pass parameters. To use such a 
subroutine, you would first place the values used by the 
subroutine into the registers; then you would call the 
Subroutine. If the subroutine was supposed to return an 
answer, it might be returned in the same registers. If the 
subroutine needed to use page zero at all, it might have its 
own private locations. 


When page zero became over~crowded, we started saving and 
restoring chunks of page zero. If only a few bytes were 
needed, they could be saved on the stack. If a larger block 
was needed, the subroutine might save the block in a private 
area Of RAM outside of page zero. 


The IIgs and 65816 are so complicated now that I almost despair 
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of ever writing a completely safe subroutine. Each subroutine 
must be careful analyzed to see what information needs to be 
saved and restored and what internal states, modes, and values 
need to be used. 


Rather than try to give you a complete entry-setup-exit 
template, I am going to show you the components and let you 
construct your own as you require them. 


The first item that occurs to me has to do with the native and 
emulation modes. If you are writing a subroutine that can be 
called from both modes yet internally must use one particular 
mode, you need to save the caller's mode. The standard way of 
doing this is: 


Beginning End 
PHP Save m and x PLP Get caller's mode 
SEC (or CLC) XCE 
XCE Get into my mode PLP Get caller's m,x 


PHP Save caller's mode RTS 


Seeing that RTS at the end reminds me of another difficulty. A 
subroutine cannot possibly know whether it was called with a 
JSR or a JSL instruction. JSR pushes a two-byte return address 
on the stack, while JSL pushes a three byte return address. If 
a subroutine was called with a JSR, it must end with an RTS. 
Likewise, if the call was made with JSL, the return must be an 
RTL. You have to decide what you are going to use and write 
the subroutine accordingly. If you need both, you will have to 
write two different subroutines (although they might share some 
code internally). 


If you need to save and restore the three main registers (A, X, 
and Y¥) without knowing ahead of time which mode the caller was 
in, you need to be sure and save all 16-bits of each of them. 
Here is how I do that: 


Beginning End 

PHP Save m and x CLC (Unless still in 

CLC Native mode XCE the native mode) 

XCE REP #$30 

PHP Save caller's mode PLY Restore Y 

REP #$30 Full 16-bit PLX Restore xX 

PHA Save A PLA Restore A 

PHX Save X PLP 

PHY Save Y XCE Restore caller's mode 
PLP Caller's m and x 
RTS 


If the subroutine is being called with a JSL, it is possibly 
being called from a different bank. That means I may need to 
worry about the Data Bank Register. In the 65816 there is an 
8-bit B-register which contains the bank number to use with all 
16-bit addressing modes used to read or write data. If my 
subroutine needs to use local data or variables which are in 
the same bank as my subroutine, and the caller was ina 
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Insist on GSRAM’ 
When You Buy Your IIcs" 


Expand the IIgs RAM and ROM with the GSRAM or GSRAM Plus 
with ROM Pak. Available now with 256K to 8 MEG! 


Reinier the 16K cards for the II+ and 
the 64K cards for the Ile? Ar the time, that 
much memory seemed like a lot But when 
the owners of these memory cards came to 
us for more memory, many had to throw 
away their smaller Apple memory cards or try 
to sell them. Most of our customers told us 
that had they known about Applied Engi- 
neering’s larger memory cards when they 
bought their Apple, they would have pur- 
chased them at the same time. 

GSRAM and GSRAM Plus are available now, 
allowing up to 8 MEG of memory expansion. 
Thats 8 times the memory capacity of 
Apple’s card and just look at the benefits that 
only GsRAM and GsRAM Plus have over 
Apple's card: 

e Lower Cost 

e Has 6 RAM banks (Apple's card has 4) 

e Has memory expansion port 

e Has ROM expansion port 

e No configuration blocks to set 

e No soldered in RAM chips 

e Expandable to 8 MEG 

e Expands AppleWorks intemal limits 

e Built-in Hi-Res self - diagnostic software 

e 5 year hassle free warranty (Apple has a 90 
day warranty) 

e Made in USA 


GsSRAM for More 

AppleWorks Power 

Only GsRAM and GsSRAM Plus eliminate 
AppleWorks intemal memory limits, increas- 
ing the maximum number of records avail- 
able from 6,000 to over 25,000 and onh: Gs 
RAM and GSRAM Plus increase the number 
of lines permitted in the word processing 
mode from 6,000 to over 15,000. And only: 
GSRAM and GSRAM Plus offer a builtin 
printer buffer so vou can continue using 


Appleworks while vour printer is printing. Gs 


RAM and GSRAM Plus even expand the 


number of lines in the dipboard from 255 to | 


2047 and will auto segment large files so they 
can be saved on wo or more disks. You can 
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even have Pinpoint or Macroworks and your 
favorite spelling checker in RAM for instant 
response. GSRAM and GSRAM Plus will even 
display the ime and date right on the 
AppleWorks screen. Nothing comes dose to 
enhancing AppleWorks so much 
Turn Your Ics into a Giant 

Simply plug GSRAM into the IiGs memory 
expansion slot and you've got up to 8 mega- 
bytes of RAM at your fingertips—all of it 
instandy and automatically recognized by the 
IIGs. GSRAM is compatible with all lics 
software, including AppleWorks, as well as 
BASIC®, ProDos, DOS 3.3, PASCAL®, “C” and 
CP/M®. 
Grow by Bytes or Megabytes 


We offer GSRAM in two configurations so 
you can increase your memory 256K at a 
time (GSRAM) or a megabyte at a time (Gs- 
RAM Plus). Both offer full compatibility, lower 
cost than other boards, and easy expandabil- 
ity. And both are extremely low in power 
consumption. A fully expanded GsRAM oper- 
ates at onl 375 ma, and GSRAM Plus at only 
270 ma (even with 6 megabytes on board!) 
GSRAM—for Normal 
Memory Requirements 

GSRAM is available with 256K, 512K, 1 
MEG or 1.5 MEG of memory already on 
board. If you don’t need the full 1.5 MEG 
now, you can choose a GSRAM with less 
memory and expand it up to 1.5 MEG in the 
furure—or upgrade to GSRAM Plus for a 
small charge. 


“In quality: 
Performance. 
compatibility. 
expandability and 
support Applied 
Engineerings GSRAM 
and oSRAM Plus are 


, number one.” 


Steve Wozniak, the creator 
of Apple Computer 


With an optional piggyback card, you can 
expand GSRAM even higher than 1.5 MEG! 
(Other cards are only expandable to 1 MEG.) 


GSRAM Plus—for Growing 


_ by Leaps and Bounds 


GSRAM Plus is the first Apple memory card to 
use 1 MEG RAM chips on the main board. 
Its available with 1 to 6 MEG on board. If 
you don’t need the whole 6 MEG now, you 


_ can buy a GSRAM Plus with less memory and 
easily expand it in the future. 


GSRAM Plus can be expanded up to 8 
MEG with an optional piggyback card. 
Easy Expansion 

Both GSRAM and GsRAM Plus use standard 
RAM chips that are readily available and just 
plug right in. So unlike other cards, you'll find 
expanding your GSRAM or GSRAM Plus easy, 
convenient and very economical. And with 
our optional ROM expansion module you 
can even increase the IIGs’s ROM space and 
all in just one slot 
Quality and Support of the 
Industry Leader 

Applied Engineering is the largest supplier 
of Apple peripherals in the word We 
invented the first lange RAM cards for the 
Apple. With a 5-year “no-hassle” warranty and 
outstanding technical support, you can be 
sure GSRAM and GSRAM Plus will deliver the 
performance you're looking for—or retum 
them within 15 days for a full refund. 


GSRAM with 256K 
GSRAM with 512K 
GSRAM with 1 MEG 
GSRAM with 1.5 MEG 
GSRAM with 2-8 MEG 


GSRAM PLUS with 1 MEG 
GSRAM PLUS with 2 MEG 
GSRAM PLUS with 3-8 MEG 


Order today! 

See your dealer or call Applied Engineering 
today, 9 am to 1] pm 7 days. Or send 
check or monev order to Applied Engineer- 
ing MasterCard, VISA and CO.D. welcome. 
Texas residents add 644% sales tax. Add $10.00 
outside USA 


| HC. APPLIED ENGINEERING” 


The Apple enhancement experts. 
(214) 241-6060 


P.O. Box 798, Carrollton, TX 75006 


CP/M is a registered trademark of Digital Research, Inc. 
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different bank, I will most likely need to save his B-register 
and set up my own. There is also a Program Bank Register, 
called the K-register, which is changed automatically by the 
JSL and RTL instructions. To save the B-register and make it 
the same as my K-register, so I can refer to local data and 
variables, I need the following lines near the beginning of my 
subroutine: 


PHB Save the caller's B-register 
PHK Push Program Bank 
PLB Use it as Data Bank also 


Then near the end of the subroutine I need the corresponding 
line: 


PLB Restore the caller's B-register 


It is conceivable that the caller may have the Stack Pointer 
set to some weird value. In the 6502 the S-register is only 
8-bits wide, but in the 65816 it has 16 bits. The stack can be 
made to start anywhere in bank 0 when you are in native mode. 
If you have programs that use more than one stack area, you may 
need to save and restore the caller's stack pointer and use 
your own inside your subroutine. In particular, if you are 
going to use Emulation Mode, or call monitor subroutines which 
co so, you will need to use the standard stack in page 1 inside 
your subroutine. The following four lines will save the 
Current stack pointer and set up your own, assuming you are 
already in Native mode with both m- and x-bits cleared for full 
16-bit operation: 


TSC current stack pointer to A (16-bits) 
LDX ##xxxx new value of stack pointer 

TXS 

PHA save previous value on new stack 


You may think of other ways to do this, but something of the 
sort must be done. If you use the above, then near the end of 
your subroutine you need to restore the original stack pointer 
as follows: 


PLX 
TXS 


In a 6502 there is only one page zero, at addresses $0000 
through SOOFF. In the 65816 page zero may start anywhere in 
bank 0, because there is a 16-bit D-register which defines the 
starting address of the so-called “direct” page. If your 
programs fiddle with the D-register, then your subroutine might 
need to save and restore it. If your are calling any of the 
Old monitor subroutines, be aware that they require a 
“standard” page zero. In 16-bit mode you can do it this way: 


Save Restore 
PHD Old D-reg PLD Get old D-reg 
PEA $xxxx 


PLD New D-reg 
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RamWorks III 


Patented Performance from the Recognized Leader 


| 

With battery backed RAM port, RGB port increased memory capacity, full software 
compatibility and more compact design, RamWorks III is a generation ahead. 

RamWorks III is the newest 3rd | Only RamWorks eliminates Apple- | 


Apple Ile’s, enhanced, unenhanced, 
generation RAM card for the Apple Ile. It | Works’ intemal memory limits, increasing 


American or European versions. 


incorporates all of the technology and =| the maximum number of records avail- 
improvements that years of experience 
and over a hundred thousand sales have 
given us. By selling more memory cards 
than anyone else and listening to our 
customers, we were able to design a 
memory card that has the ultimate in 
performance, quality, compatibility and 
ease of use. A design so advanced it’s 
patented. We call it RamWorks III, you'll 
call it awesome! 


The AppleWorks Amplifier. 
While RamWorks III is recognized by 
all memory intensive programs, NO 
other expansion card comes close to 
offering the multitude of enhancements 
to AppleWorks that RamWorks III does. 
Naturally, you’d expect RamWorks III to 
expand the available desktop, after all 


Applied Engineering was a year ahead of 


everyone else including Apple in offering 
more than 55K, and we still provide the 
largest AppleWorks desktops available. 
But a larger desktop is just part of the 
story. Look at all the AppleWorks en- 
hancements that even Apple’s own card 
does not provide and only RamWorks III 
does. With a 256K or larger RamWorks 
Ill, all of AppleWorks (including printer 


routines) will automatically load itself into 


RAM dramatically increasing speed by 
eliminating the time required to access 
the program disk drive. Switch from 
word processing to spreadsheet to data- 
base at the speed of light with no wear 
on disk drives. 


i 
i 
| 
' 
I 
1 
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able from 1,350 to over, 25,000. Onh) 
RamWorks increases the number of lines 
permitted in the word processing mode 
from 2,250 to over 15,000. And onf: 
RamWorks offers a built-in printer buffer, 
so you won't have to wait for your 
printer to stop before returning to Apple- 
Works. RamWorks even expands the 


clipboard. And auto segments large files 


~ so they can be saved on two or more 


| 
| 
| 


disks. You can even have Pinpoint or 
MacroWorks and your favorite spelling 
checker in RAM for instant response. 
RamWorks, nothing comes close to 
enhancing AppleWorks so much. 


The Most Friendly, Most 
Compatible Card Available. 
Using RamWorks III couldn't be easier 
because its compatible with more off 
the-shelf software than any other RAM 


| card. Popular programs like AppleWorks, 
| 
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Pinpoint, Catalyst, MouseDesk, Howard- 
Soft, FlashCalc, Pro-Filer, Managing Your 
Money, SuperCalc 3a, and MagiCalc to 
name a few (and af hardware add on’s 
like ProFile and Sider hard disks). Ram- 
Works is even compatible with software 
written for Apple cards. But unlike other 
cards, RamWorks plugs into the Ile 
auxiliary slot providing our super sharp 
80 column text (U.S. Patent #4601018) in 
a completely integrated system while 
leaving expansion slots 1 through 7 
available for other peripheral cards 
RamWorks III is compatible with all 


Highest Memory Expansion. 
Applied Engineering has always of 
fered the largest memory for the Ile and 
RamWorks III continues that tradition by 
expanding to 1 full MEG on the main 
card using standard RAMs, more than 
most will ever need (1 meg is about 500 
pages of text)...but if you do ever need 
more than 1 MEG, RamWorks III has the 
widest selection of expander cards avail- 
able. Additional 512K, 2 MEG, or 16 
MEG cards just snap directly onto Ram- 
Works III by plugging into the industry's 
only low profile (no slot 1 interference) 
fully decoded memory expansion con- 
nector. You can also choose non-volatile, 
power independent expanders allowing 
permanent storage for up to 20 years. 


It Even Corrects Mistakes. 


If you've got some other RAM card 
thats not being recognized by your 
programs, and you want RamWorks IIL, 
you're in luck Because all you have to 
do is plug the memory chips from your 
current card into the expansion sockets 


; on RamWorks to recapture most of your 
| investment! 


The Ultimate in RGB Color. 


RGB color is an option on RamWorks 
and with good reason. Some others 
combine RGB color output with their 
memory cards, but thats unfair for those 
who don't need RGB and for those that 
do. Because if you don’t need RGB 


Applied Engineering doesn't make you 
buy it, but if you want RGB output 
you're in for a nice surprise because the 
RamWorks RGB option offers better 
color graphics plus a more readable 80 
column text (that blows away any 
composite color monitor). For only $129 
it can be added to RamWorks giving you 
a razor sharp, vivid brilliance that most 
claim is the best they have ever seen. 
You'll also appreciate the multiple text 
colors (others only have green) that 
come standard But the RamWorks RGB 
option is more than just the ultimate in 
color output because unlike others, it's 
fully compatible with all the Apple 
standards for RGB output control, mak- 
ing it more compatible with off-the-shelf 
software. With its FCC certified design, 
you can use almost any RGB monitor 
because only the new RamWorks RGB 
option provides both Apple standard and 
IBM standard RGB outputs (cables in- 
cluded). The RGB option plugs into the 
back of RamWorks with no slot 1 inter- 


RGB Option 


ference and remember you can order 
the RGB option with your RamWorks or 
add it on at a later date. 


True 65C816 16 Bit Power. 

RamWorks III has a built-in 65C816 
CPU port for direct connection to our 
optional 65C816 card The only one 
capable of linearly addressing more than 
1 meg of memory for power applica- 
tions like running the Lotus 1-2-3™ 
compatible program, VIP Professional 
Our 65C816 card does not use another 
slot but replaces the 65C02 yet maintains 
full 8 bit compatibility. 


~ power and speed that it adds to any Ile. 


Endorsed by the Experts. 

A+ magazine said “Applied Engineer- 
ing’s RamWorks is a boon to those who 
must use large files with AppleWorks... 
like the product so much that I am 
buying one for my own system.” inCider 
magazine said “RamWorks is the most 


‘T wanted a 
| memory card for 
my Apple that was 
fast, easy to use. 
) and very compat. 
ible: so I bought 
> RamWorks” 
Steve Wozniak, the creator 
of Apple Computer 


‘dean 


powerful auxiliary slot memory card 
available for your Ie, and I rate it four 
Stars...For. my money, Applied Engineer- 
ing’s RamWorks is king of the hill” 
Apple experts everywhere are im- 
pressed by RamWorks’s expandability, 
versatility, ease of use, and the sheer 


With a RamWorks in your Apple, you'll 
make IBM PC's and ATs look like 
slowpokes. 


Quality and Support of the 
Industry Leader 


RamWorks III is from Applied Engi- 


| 


| 


' 
' 


e Built-in super sharp 80 column display, 
(US. Patent #4601018) 

e Expandable to 1 MEG on main card 

e Expandable to 16 meg with expander 
cards, with NO slot 1 interference 

e Can use 64K or 256K RAMs 

e Powerful linear addressing 16 bit 
coprocessor port 

e Automatic AppleWorks expansion up 
to 3017K desktop 

e Accelerates AppleWorks 

e Built-in AppleWorks printer buffer 

e The only large RAM card that’s 100% 
compatible with all le software 

e RamDrive™ the ultimate disk emula- 
tion software induded free 


' e Memory is easih’ partitioned allowing 


| 
| 
| 
| 


many programs in memory at once 
¢ Compatible, RGB option featuring ultra 
high resolution color graphics and 
multiple text colors, with cables for 
both Apple and IBM type monitors 
e Built-in self diagnostics software 
e Lowest power consumption (U.S. 
Patent #4601018) 
e Takes only one slot (auxiliary) even 
when fully expanded 
Socketed and user upgradeable 
Software industry standard 
Advanced Computer Aided Design 
Used by Apple Computer, Steve 
Wozniak and virtually all software 
companies 


| ¢ Displays date and time on the Apple- 


Works screen with any PRO-DOS 
compatible clock 
e Much, much more! 
$179 
$199 
$249 
$329 
$489 
CALL 
$159 
$129 


RamWorks Ill with 64K 


RamWorks Ili with 256K 
RamWorks Ill with 512K 
RamWorks Il! with 1 MEG 
RamWorks Ill with 1.5 MEG 
RamWorks Ill with 2 to 16 MEG 
65C816 16 Bit Card 


RGB Option 

Optional Software: 

Pinpoint with RAM 
Enhancement Software 

VIP Professionai 


$79 
$219 


RamWorks HI. The industry standard 
for memory expansion of the Apple He. 
ORDER YOUR RamWorks Il TODAY. 
See your dealer or call (214) 241-6060, 


neering, the largest, most well supported | 9am. toll p.m, 7 days, or send check or 


manufacturer of Apple peripherals and 
the inventor of lange RAM cards for the 
Apple. With our 5 year no hassle 
watranty and outstanding technical sup- 
port, you’re assured of the most trouble 
free product you can buy. 


It's Got It All 
e 15 day money back guarantee 
e 5 year hassle free warranty 


money order to Applied Engineering. 

MasterCard, Visa and C.O.D. welcome. 
Texas residents add 6%% sales tax. Add 
$10.00 if outside USA 


Fi Applied Engineering 
P.O. Box 798, Carroliton, TX 75006 
(214) 241-6060 
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So far I have only been worrying about the 65816 itself. What 
about all the Apple soft switches? The //e and //c were enough 
of a challenge, with all the memory banking and 80-column 


options. Now along comes the IIgs, an order of magnitude more 
complex! 


In fact it is so complex that I have not mastered it yet. For 
now all I am going to point out is the rules for calling the 
Old monitor subroutines and the new “tools"“. To use the old 
monitor subroutines you must be in Emulation mode, and running 
in bank 0 with normal page zero and stack pointers. The 
monitor itself must “be” in bank 0. Since the ROM is really in 
bank FF, you have the option of copying it to RAM in bank 0O or 
using the soft switch at $C081, $C089, $C082, or S$CO8A to map 
ROM into bank 0. 


To call the new “tools“ you must be in full 16-bit native mode. 
I think that is just about the only requirement. Then you use 
JSL to call the tools via the vectors in bank SEl. 


Beyond this elementary level, it is easy to get lost. It 
reminds me of the “twisty little passages” in the Original 
Adventure Game. My advice: be careful; keep close track of 
everything you change; put everything back the way you found 
it. If your subroutine works, you may have done it correctly. 
Maybe not. You might not find out what you left out till next 
year when you try to use it from a new environment. 


Recent articles in Call APPLE have discussed some of the same 
ideas, and you may profit by reading them. Look at David 
Sparks' “The Ethical Subroutine” in the June 1987 issue, and 
Bob Bishop's “Modular Assembly Language Programming” series in 
earlier issues this year. 


Correction to ProDOS Patcher....ceeecceeee BOD Sander-Cederlof 


Mike McConnell called with a correction to my Applesoft ProDOS 
Patcher that affected its ability to find and fix versions 
1.1.1 and 1.2. Lines 430 and 440 PEEKed at A, Atl, At2, and 
At+3; in fact they should be PEEKing at A, At3, At+t6, and At9. 
Change those two lines to: 


430 IF PEEK(A)<>157 OR PEEK (A+3)<>157 THEN 500 
440 IF PEEK(A+6)<>157 OR PEEK (At9<>157 THEN 500 


Then I noticed an error in the REMark at line 450. What it 
Should say is: 


450 REM ---FOUND VERSION 1.1.1 OR 1.2, 
SO CHANGE "STA“ TO “LDA"--- 
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Using the S-C Macro Assembler with an Echo Speech Synthesizer 
eeeeoeeoeeese4ees@eee080 @ Rick Hayner 


In 1977, I went to college to train to become a computer 
programmer. I was programming an IBM 360-30 main frame, with 
output which was not usable by me, since I am totally blind, 
and couldn't read the print output. My first programming 
language was IBM 360 Assembly Language. Depending on sighted 
readers who knew nothing about computers to read the listings, 
and having them help me find errors on IBM cards which 
sometimes had been punched on a keypunch which didn't print on 
the tops of the cards, was enough to drive a sane person crazy. 
Ever since then, I have had the desire to become a good 
Assembly Language programmer. 


After getting an Apple //e, in 1985, I thought that using the 
ECHO Speech Synthesizer with an editor/assembler would be 
great. The problem was finding one which would talk. 


While talking with Larry Skutchan, a friend of mine who is also 
a blind programmer, I asked him if he knew about an assembler 
that would talk, and he recommended the S-C Macro Assembler. I 
work part time for a company on designing software to help 
physically handicapped people. My boss, Scott Atwood, asked me 
if I would be willing to learn 6502 Assembly Language, and if I 
knew of an assembler which would talk, and I told him about the 
S-C Macro Assembler. About a week later, Scott brought the 
assembler to me, and using the instructions in the manual, 
which I was able to obtain as textfiles on diskette, I had the 
assembler talking within 10 minutes of getting it. 


The ECHO Speech Synthesizer uses a prgoram called Textalker, 
which resides in the language card area. This means I must use 
the “main memory" version of the S-C Macro Assembler. The 
instructions for patching the assembler gave the address of the 
instructions which had to be patched out in the main memory 
version, so there were no problems encountered in patching the 
assembler. 


The thing which stops most Machine Language programs from 
talking is a "JSR S$FE89" followed by a “JSR $FE93". These 
instructions are like doing an “IN#0" and a "PR#0". The problem 
is that Textalker changes the I/O hooks, and these routines 
disconnect Textalker. Changing these two instructions to six 
"NOP" instructions, allows the S-C Macro Assembler to talk. 
Another thing which stops programs from talking, is people 
sometimes store data directly into screen memory locations, 
instead of using "COUT". Fortunately, the S-C Macro Assembler 
doesn't do this, but you do have to patch out the JSR's 
mentioned above. 


I really like the S-C Macro Assembler. I haven't figured out 
how to use all of its features yet, but I use it almost every 
day, and always learn something new about it every time I use 
it. 


I have written some macros for controlling the Echo, and I have 
included them here for other Echo users. 


Apple Assembly Line.....June, 1987......Copyright (C) S-C SOFTWARE.....Page 19 


I want to thank all the people at S-C Software for their help 
in learning to use the S-C Macro Assembler. They have always 
been willing to answer all questions, whether they have been 
about the assembler or about programming. I would recommend 
the S-C Macro Assembler to anyone who is interested in Assembly 
Language, whether they are blind or sighted. 


1000 *SAVE ECHO MACROS 
1010 S#eneenee een nnn ew nnn ee eee 
1020 # 
1030 Pp Macros for ECHO Speech Synthesizer, by Rick Hayner 
1050 ® Requires Textalker Version 3.1.1 or later. 
et 

089 r Generic ECHO Command: >ECHO "X* (X is command letter) 
100 MA . 

110 LDA #$85 Control-E 

120 JSR MON .C 

130 LDA #*]1* Command letter 

140 JSR MON .COUT 

120 ¢ i 

ve ® TURN ECHO OFF: OFF 

180 ~MA OFF 

190 >ECHO *0* 

200 EM 

21 0 & SOG OOOO POO Oaea GeO Oe BOG @ & & Gob oD mae 

220 ® TURN ECHO ON: OON 

230 MA 

240 >ECHO "B® 

250 EM 

560s Patewe toes pS oc eee eo ceecete 

270 * PUT ECHO IN TALK MODE: TALK 

280 ~MA TALK 

290 >ECHO *T* 

00 . EM 


# PUT ECHO IN LETTER MODE: LETTER 
~MA LETTER 

2ECHO *L* 

EM 


cc ce cee ced cee cd et eh wr ce ce eh eh we ed ce ed cel ce ee ed ct ce ce ee ed ee ed wed ed ch ed red ed eh ed ced ed 8 ed eet ed eed nl ed ed ee ee ed ed ed eh ed oe ed ed ed ed od 


3 
319 
20 
3i0 
50 
Bg esa Snes 
370 ® PUT ECHO IN WORD MODE: >WORD 
380 .MA WORD 
399 >ECHO "Ww 
0 . EM 
10) @iedeee cock asoecusoeeceesecsse' 
420 ® TURN UPPERCASE SPELL ON: >USPELL 
430 .MA USPELL 
40 SECHO *"K* 
450 . EM 
WGO) Seva oo eae 
470 ® TURN UPPERCASE SPELL OFF: >USPELLOFF 
480 .MA USPELLOFF 
4.90 >ECHO "N* 
500 . EM 
510: Wasesecs ocate wea tessa meeaut eas 
520 ® PUT ECHO IN SOME PUNCTUATION: >SOME 
530 .MA SOME 
540 >ECHO *S* 
590 . EM 
660 Gateeee eee ee ee eee eees 
570 # PUT ECHO IN MOST PUNCTUATION: >MOST 
590 >ECHO ™M* 
610 #-------- eee 
620 ® PUT ECHO IN ALL PUNCTUATION: >ALL 
630 ALL 
640 SECHO "A" 
090 
660 
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SPECIAL !!! EXPANDED RAM/ROM BOARD: $39.00 
Similar to our $30 RAM/ROM dev board described below. Except this board has two sockets to hold your choice 
of 2-2K RAM, 2-2K ROM or even 2-4K ROM for a total of 8K. Mix RAM and ROM too. Although Apple limits 
access to only 2K at a time, soft switches provide convenient socket selection. Hard switches control defaults. 


IMPROVED !1! JL IN A MAC (ver 2.0): $75.00 
Now includes faster graphics, UniDisk support and more! Bi-directional data transfers are a snap! This Apple I! 
emulator runs DOS 3.3/PRODOS (including 6502 machine language routines) on a 512K MAC or MACPLUS All 
Apple li features are supported such as HI/LO-RES graphics, 40/80 column text, language card and joystick. 
Also included: clock, RAM disk, keyboard buffer, on-screen HELP, access to the desk accessories and support 
for 4 logical disk drives. Includes 2 MAC diskettes (with emulation, communications and utility software, plus 
DOS 3.3 and PRODOS system masters, including Applesoft and Integer BASIC) and 1 Apple II diskette. 


SCREEN.GEN: $35.00 
Develop HI-RES screens for the Apple Il on a Macintosh. Use MACPAINT (or any other application) on the MAC to 
create your Apple If screen. Then use SCREEN.GEN to transfer directly from the MAC to an Apple tI (with 
SuperSerial card ) or lic. Includes Apple I! diskette with transfer software plus fully commented SOURCE code. 


MIDI-MAGIC for Apple //c: $49.00 
Compatible with any MIDI equipped music keyboard, synthesizer, organ or piano. Package includes a MIDi-out 
cable (plugs directly into modem port - no modifications required!) and 6-song demo diskette. Large selection of 
digitized QRS player-piano music available for 19.00 per diskette (write for catalog). MIDI-MAGIC compatible 
with Apple Il family using Passport MID! card (or our own input/output card w/drum sync for only $99.00). 


FONT DOWNLOADER & EDITOR: $39.00 

Turn your printer into a custom typesetter. Downloaded characters remain active while printer is powered. 
Use with any Word Processor program capable of sending ESC and control codes to printer Switch back and 
forth easily between standard and custom fonts. Special functions (like expanded, compressed etc.) supported. 
Includes HIRES screen editor to create custom fonts and special graphics symbols. For Apple Il, Il+, //e. Specify 
printer’ Apple imagewriter Apple Dot Matrix, C.ltoh 8510A (Prowriter), Epson FX 80/85, or Okidata 92/192. 
* FONT LIBRARY DISKETTE #1: $19.00 contains lots of user-contributed fonts for all printers 
supported by the Font Downloader & Editor. Specify printer with order. 


DISASM 2.2e : $30.00 ($50.00 with SOURCE Code) 
Use this intelligent disassembler to investigate the inner workings of Apple I! machine language programs. 
DISASM converts machine code into meaningful, symbolic source compatible with S-C, LISA, ToolKit and other 
assemblers. Handles data tables, displaced object code & even provides label substitution. Address-based triple 
cross reference generator included. DISASM is an invaluable machine language learning aid to both novice & 
expert alike. Don Lancaster says DISASM is “absolutely essential” in his ASSEMBLY COOKBOOK. 


The ‘PERFORMER’ CARD: $39.00 ($59.00 with SOURCE Code) 

Converts a ‘dumb’ parallel printer |/F card into a ‘smart’ one. Simple command menu. Features include 
perforation skip, auto page numbering with date & title, large HIRES graphics & text screen dumps. Specify 
printer: !tX-6C with Graftrax-80, t{4X-100, MX-80/100 with Graftraxplus, NEC 8092A, C.Jtoh 8510 
(Prowriter), OkiData 82A/03A with Okigraph & OkiData 92/93. 

‘MIRROR’ ROM: $25.00 ($45.00 with SOURCE Code) 
Communications ROM plugs directly into Novation’s Apple-Cat Modem card. Basic modes: Dumb Terminal, 
Remote Console & Programmable Modem. Features include: selectable pulse or tone dialing. true dialtone . 
detection, audible ring detect, ring-back, printer buffer, 80 col card & shift key mod support. 

RAM/ROM DEVELOPMENT BOARD: $30.00 
Plugs into any Apple slot. Holds one user-supplied 2Kx8 memory chip (6116 type RAM for program development 
or 2715 EPROM to keep your favorite routines on-line). Maps into $CnOO-CnFF and $CB00-CFFF. 
C-PRINT For The APPLE //c: $69.00 


Connect standard parallel printers to an Apple //c serial port. Separate P/S included. Just plug in and print! 


Unless otherwise specified, all Apple Il diskettes are standard (not copy protected!) 3.5 DOS. 
Avoid a $3.00 handling charge by enclosing full payment with order. VISA/MC and COO phone orders OK. 


RAK-WARE 41 Ralph Road W. Orange NJ 07052 (201) 325-1885 
EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE 
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Assembly Listings on ProDOS Text Files..........John L. Hanna 


From the ProDOS version of the S-C Macro Assembler, how does 
One direct the assembly listing to a text file for later 
inclusion in a word processor file? Articles in AAL some years 
ago showed how to do th is for the DOS 3.3 version, but the 
techniques given do not work with the ProDOS version. 


After some head scratching and some snooping, I did find a way 
that works. By patching the PBITS entries for the OPEN and 
WRITE commands I can make them into DIRECT commands. (Without 
the patches, OPEN and WRITE are not legal as DIRECT commands.) 
I'll show how to make these two patches in a moment. 


Once the patches are installed, by merely typing “OPEN LISTING“ 
and “WRITE LISTING" an output textfile starts absorbing all 
screen-directed information. I make sure I am ready to 
assemble, and then type the OPEN and WRITE commands. At this 
point the screen output disappears, because it is all going to 
the text file instead. Then I type the ASM command, and the 
listing is written on the text file. At the end of the 
assembly the text file is automatically closed, and the prompt 
re-appears,. 


There are some “gotchas". First, the S-C Macro Assembler has a 
fixed number of file buffers. If I use one of them to send the 
listing to a text file, it is not possible to also have a 
target file (.TF file) at the same time. This could restrict 
your possibilities when working with large programs, because 
the object code does have to go somewhere. Judicious use of 
the .TA, .DU, or .PH directives could enable you to a assemble 
even large programs while directing the listing to a text file. 


Second, the text file will not be truncated if a short listing 
is written on a previously exisitng file which was longer. The 
solution is to always DELETE such a file before you OPEN it. 


As a test, I assembled the S-C DisAssembler (an excellent 
product, by the way) and sent the listing to a text file. I 
first removed the .TI line so that the resulting file would not 
have page breaks. Working with two floppy drives, the source 
code on one and the output listing file on the other, it 
produced a 177 block text file in just under five minutes. I 
moved the file into Appleworks with no problems. After 
adjusting the margins to 0 inches it was 123K, 2298 lines, and 
saved onto a 95K AWP file. 


Now, how do you make those two patches? First you have to find 
the two bytes to change. Bob has produced several slightly 
different versions so this requires a little snooping. With 
the S-C Macro Assembler loaded and running, enter the monitor 
command “$B900.B99F“. This will display the area containing 
the two bytes that need changing. In some of the monitor 
versions it will display in both hex and ASCII, but in most 
just in hex. There are two strings of bytes you need to find: 


4F 50 45 CE xx xx 2D 
57 52 49 54 C5 xx xx 21 


Page 22..ec. Apple Assembly Line.....June, 1987......Copyright (C) S-C SOFTWARE 


The first string starts somewhere near $B918, and the second 
somewhere near $B958. The “xx xx“ indicates two bytes which 
could have various values. The “2D"* and "21" are the two bytes 
to patch. In my copy of the S-C Macro Assembler, these were at 
SB91F and SB95F, respectively. Be sure you find and use the 
correct addresses for yours. Change the 2D to OD, and the 21 
to 01, as follows: 


:SB91F:0D N B95F:01 


That is all there is to it! Note that the change is temporary, 
because it does not modify the SCASM.SYSTEM file. You could 
find the appropriate place and do that if you wish, but it is 
just as effective to create a small EXEC file to install the 
changes whenever you need them. 


Enter Holt  sasictike Macros for the S-C Macro Assembler. These macros are 


A Shape 
Table 
program: 


To Oryer:& send check or Money Order To: 


‘Integer Basic Macros which can perform most of the standard Basic 


commands using 8/16/52/64 bit manipulation. Included are a set of 


graphic commands to perform block graphics and other Hi-Res 


Animation. Available in either DOS 3.3 or ProDos Format. Either one 


for $30.00 or BOTH for $50.00. 
A shape table program unlike any other program you have ever run. 


are under one section. All editing functions are contained in one 
place. All Hi-Res functions are in one place. The entire source code 
is included to allow you to modify it as you need to! The DOS 3.3 
Version is only $20.00 - AND 80 1S THE PRODOS VERSION!!!! Both 
Versions for only $30.00. ORDER YOURS TODAY!!! 


Upgrades for EnterSoft from DOS 


Mark Manning 
c/o Simulacron 1/Baggy Games 
P.O. Box 591894 

Houston, Tx 77259-1894 


today! 


Thanks Everyone For Your 
Comments and Support! 


This one is completely set up in a logical manner. All disk operations 


3.3 to ProDos is $20.00. Get yours 
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Printing a Tiny Address Booklet...........BOb Sander-Cederlof 


Do you have trouble remembering all the phone numbers and 
addresses of your family and friends? I sure do. At work I 
keep a Rolodex file for the most frequently needed ones, but I 
can hardly carry it around in my pocket. I could buy a little 
blank address book at any store, but my handwriting is too poor 
and they all take up too much space. 


I had a vision of a tiny address booklet, no bigger than a 
credit card, which could hold about 100 names, addresses, and 
phone numbers. I could carry it in my credit card wallet, so 
it would almost always be with me when I need it. 


It is easy enough to use a word processor to type all the 
information into my Apple. Last year I did just that, and 
printed it all out in the condensed mode on my NEC 8023 dot 
Matrix printer. I then cut the printout into little pages and 
pasted them up in booklet format. Using a Minolta copying 
machine, I “xeroxed"“ the paste-up onto both sides of the same 
sheet of paper. Then uSing scissors and staples I assembled a 
little booklet the same size as a credit card, with 12 pages 
counting the front and back covers. I left those covers plain 
white, and covered them with clear packing tape, so it could 
last a little longer. 


Indeed it did last, for about a year. Now there are so many 
Changes that it is getting hard to read. I need to bring it up 
to date. But can the computer do a little more of the work? 


Of course it can. Especially with the help of the new Epson 
EX-800 dot matrix printer I just bought, for only $399 plus tax 
at the local Soft Warehouse. It prints a lot faster than my 
other printers, which is why I bought it. But it also has a 
lot of new features. One of them is the ability to print 
subscripts and and superscripts. I found out that in this 
mode, with Condensed and Elite also selected, the printout is 
not only very small, but very clear and easy to read. The 
characters are shorter, allowing me to adjust the vertical 
Spacing to 5/72 inch per line. This gets over 150 lines on 
each sheet of paper! It also lets me get 50 lines (including 
top and bottom margin) in the 3.5 inches of my booklet pages. 
And I can print 33 characters per line on each one of the 
pages, leaving a nice left and right margin. The Epson EX-800 
makes two passes over each line in this mode, so that the 
miniature print is “near letter quality”. 


The printer helps, but I still wanted some automatic way to 
layout the individual pages and print them in booklet order, on 
BOTH SIDES of the same sheet of paper. I started to do it in 
Applesoft, but suddenly it seemed easier in Assembly Language. 
The resulting program prints all of the “front sides” and then 
waits while I take the paper out of the printer, turn it over, 
and put it back in. Then it prints the “back sides*. All I 
have to do is fold the sheet down the middle, slice it into 
three 4-page folders, stack them up, and staple them together. 
It worked beautifully, and the result is nestling nicely in my 
shirt pocket right now. 
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Ram Factor 


Boot any II, Ie, or Ils and be up and running your 
Javorite software in less than 1 second. 


Na anyone with an Apple II+, Franklin, Laser 128, Apple He or IIcs preferring to use 
slots 1 through 7 can now enjoy the speed and performance that thev’ve been waiting for. 
With RamFactor, you'll be able to instandy add another 256K, 512K, or a full 1 MEG on 


Features: 


e 256K to 1 MEG on main board. Expansion 
connector for possible further expansion to 


the main board and an expansion connector can address an additional 16 MEG of 16 MEG. 
memory for possible future expansion. Since virtually all software is automatically’ e Fully Apple I Memon: Expansion 
compatible with RamFactor, you'll immediately be able to load programs into RamFactor compatible 


for instantaneous access to information. You'll also be able to store more data for larger 
word processing documents, bigger data bases, and expanded spreadsheets. And with the 
battery back-up option, you can switch on your Apple and your favorite software will 


e Gompatible with Apple He. HH. Hes, 
Franklin and Laser 128 
e Battery back-up option allows vou to tum 


be up and running in less than 1 second! 


Very Compatible 

All the leading software is already com- 
patible with RamFactor. Programs like Apple- 
Works, Pinpoint, BPI, Managing Your Money, 
Dollars and Sense, SuperCalc 3A, PFS, Mouse- 
Write, MouseDesk, MouseCalc, Sensible 
Speller, Applewriter Ile, Business Works, 
ReportWorks, Catalyst 3.0 and more. And 
RamFactor is fully ProDos, DOS 3.3, Pascal 1.3 
and CP/M compatible. In fact, no other slot 
1-7 memory card is more compatible with 
commercial software. 


AppleWorks Power 

There are other slot 1-7 cards that give 
AppleWorks a larger desktop, but that's the 
end of their story. But RamFactor is the only 
slot 1-7 card that increases AppleWorks 
intemal memory limits, increasing the maxi- 
mum number of records in the database and 
lines permitted in the word processor, and 
RamFactor is the only standard slot card that 
will automatically load all of AppleWorks into 
RAM dramatically increasing speed and 
eliminating the time required to access the 
program disk, it will even display the time 
and date on the AppleWorks screen with 
any ProDos clock RamFactor will automati- 
cally segment large files so they can be 
saved on 5%", 344", and hard disks. All this 
performance is available on the Apple II+, 


He, Franklin. or Laser 128 when used with an | 


80 column display. RamFactor, no other 


standard slot card comes dose to enhancing 
AppleWorks so much. 


The “Instant On” Apple. 


With the RamCharger 
battery backup op 
ton, RamFactor 
will retain pro- 
grams and data 

during power 

failures or even 
when you tum your computer off And 
because RamFactor plugs into slots 1-7, its 
the only memory card that can cold boot 
an Apple without using slow floppy or hard 
disks. An available “Y" cable allows one 
RamCharger to power two RamFactors. 


Powerful Program Switcher 

With RamFactor, you can organize 
memory into multiple work areas and switch 
between them. Each work area can contain 
different programs and even different operat- 
ing systems. Now you can switch from one 
program to another or even switch from 
AppleWorks to DOS 3.3 to CP/M to Pascal to 
ProDos in under a second And with our 
battery back-up option, you can have 
permanent storage for up to 20 years. 


on vour Apple and nun vour favorite 
programs in less than 1 second! 


e Automaticalh’ recognized by ProDos, DOS 


3.3, Pascal and standard CP/M 


e Built-in RamDrive™ software (a tue RAM 


disk not disk caching) 


, @ Systems are directly bootable from Ram- 


Factor if desired 


@ Built-in self diagnostic software 
| @ Automatic expansion with AppleWorks 1.3 


or 2.0 


, ¢ Allows Apple I+ and Ie to run your 


AppleWorks without buving any 
additonal software 

e Accelerates AppleWorks 

e Displays time and date on the AppleWorks 
screen with any ProDos clock 

e Fits anv 1O slot except slot 3 


| @ Full’ socketed and user upgradeable 


e Much, much more 


RamFactor with 256K 
RamFactor with 512K 
RamFactor with 1 MEG 


$239 
$279 
$359 
CALL 
$179 

$24 


RamFactor with 2-16 MEG 
RamCharger backup option 
“¥* cable 

(Alows one RamCharger to power two RamFectors.) 


Order RamFactor today... with 15 day 
money back guarantee and our “no hassle” 
five vear warrant. See vour dealer or call 
(214) 241-6060. 9 am to 11 pm, 7 days or 
send check or money order to Applied 
Engineering, MasterCard, Visa and C.O.D. 
welcome. Texas residents add 6! sales tax 
Add $10.00 if outside USA 


-K Applied Engineering” 
The Apple enhancement experts 


(214) 241-6060 


P.O. Box 798, Carrollton, TX 75006 
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To understand my program a little more easily, it might help to 
take three enalt pieces of paper, stack them up, fold the stack 
in half, and call it a booklet. Then label the pages from 
front to back. Label the front cover "FC“, the inside pages 0 
through 9, and the back cover “BC“. Then take the booklet 
apart and look at each sheet. I call the outer sheet 
“FC/0--9/BC", the next sheet “"1/2--7/8", and the inner sheet 
"3/4--5/6". My program prints on pages 0 through 9, and leaves 
FC and BC blank. 


My program works under the assumption that the text file 
containing all the names and addresses is already in memory. 

It just happens in my case to begin at $2121. Each character 
is in ASCII with the high bit on, and the file image ends with 
a $00 byte. You could make obvious adjustments to the program 
to work with text in some other position or a different format. 


My program also assumes that there are blank lines between each 
entry, and no blank lines within any entry. This helps me to 
easily be sure that an entry is not printed partly on one page 
and partly on another. I counted the number of lines in my 
entire directory, finding 341 lines. Since I am printing on 
ten pages, that is about 34 lines per page. I decided to print 
at least 32 lines on each page, and then finish printing 
whatever entry was in progress. This resulted in the last page 
being a little shorter than the rest, and left enough bottom 
margin on most pages for adding extra names later. 


My program begins by setting up the Epson printer. You will 
need to modify this setup to correspond with the capabilities 
of your own printer and interface card. Lines 1220-1250 
install the printer hook. As you can see, my printer interface 
card was in slot 5, which is highly unusual. Yours is probably 
in slot 1, so you will want to change the "$C500" to “S$C100". 
The setup string is shown in lines 1640-1720. The first two 
lines are control-I commands to the interface card, and the 
rest are ESCAPE commands to the Epson printer. 


Tne next major activity in my program involves building a table 
of addresses which point to the beginning of each booklet page 
in the text buffer. The subroutine which does this is shown in 
lines 2450-2700. It simply starts with the first page at the 
given address of $2121 (probably different in your case), scans 
to the beginning of the next page and saves the address, and so 
on for ll pages. The extra page does not really exist, but it 
helps me set up another table which is used to mark the END of 
each page. I store the addresses in two different tables: 
PAGES and SPAGES. PAGES is used for the beginning and current 
address in each page, and is modified during printout. SPAGES 
is used to find the end of each page, and is not modified 
during printout. 


Another value you may want to change is the number 32 in line 
2780. This is the minimum number of lines to be printed on 
each page. It turns out my longes page had 35 lines printed on 
it. If you use a different booklet size or a different ver- 
tical spacing, you will probably want a different value here. 
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Looking back at the main program, lines 1360-1450 print the 
front side of the sheet. Line 1470 pauses the program so that 
I can turn the paper over and re-insert it into the printer, 
and then lines 1480-1540 print the back side. My subroutine 
PRINT.TWO.PAGES does the real work here. The page number (0-9) 
of the left page is in the A-register and that of the right 
page in the X-register. 


PRINT.TWO.PAGES assumes there are a total of 50 lines per page. 
You should change the number on line 1830 for a different size 
page. This count includes the top and bottom margin. I forgot 
to include a little extra for trimming, but it worked out all 
right for me. The number 42 on line 1860 controls the starting 
column for the right-hand page. I had a 33-character line, a 
9-character center page gap, and the right page starts in 
column 43. You may need to change this number also. 


The number 35 on line 1880 was arrived at experimentally. 
Between adjusting the tractors left and right to position the 
paper, and changing this number 35 up or down, you can center 
the blank space between the left and right pages exactly over 
the center of the printer paper. This is important, because 
when we turn the paper over and print on the back side we want 
the pages to line up correctly. 


Lines 1900-1960 print a line for the left-hand page and tab to 
the starting column for the right-hand page. Then lines 
1980-2040 print a corresponding line for the right-hand page. 
Of course, either or both of these may be blank lines. 


I wish I could show you what the finished product looks like, 
but that is not practical. If you stop by some time, I will 
show it to you. Meanwhile, you could adapt this to your own 
printer and needs and make your own booklet. 


A project comes to mind, which one of you might like to tackle. 
How about parameterizing the variables so that it could make 
booklets of various dimensions and page counts, and integrate 
it into a word processor? The S-C Word Processor naturally 
comes to mind, since so many of you have purchased it with the 
source code. 


1000 ®SAVE PAGINATOR 
1010 Wassasecens-sosceeseeuesees uch 
1020 - DUMMY 
lehe ~OR O DEFINE PAGE ZERO VARIABLES 
0000- 1040 PAGES .BS 24 Room for 12 pointers 
0018- 1020 PAGE -BS 1 
0019- 1060 PNTR -BS 2 
001B- Icke LPAGE .BS 1 
001C- 1080 RPAGE' .BS 1 
001D- 1090 LINES’ .BS 1 
OO1E- 1100 TABBER .BS 1 
ee : - ED END OF DUMMY SECTION 
2he Meg MON.CH .EQ $24 
2121- 1150 BEGIN .EQ $2121 My text buffer starts here 
te and ends with a 00 byte. 
FD8E- 1180 CROUT EQ $FDSE 
FDED- ate COUT ~EQ $FDED 
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View master 50 


Now run. 
AppleWorks on 
your II+and keep 
full 80 column 

compatibility 


VT Pees Et} 


[wiewmasTeR#o| | {| |. |. |. |. |. ft 
Cae (a Pe (a a a ae ee 
pwizarpwo TTT 
PRISON = Se oe tS eae ea SS 
MOSS a ve Pe le ae 
EWAN A he a AA aN a ae 
PSIANTE RE nd |eA al ade ee a eee S| 
CCE a Ca Ce ae ee 


() ne look at the chart will give vou some of the 


reasons theres only one smart choice in 80 
column cards for your Apple. But the real secret to 
Viewmaster 80's success is something even better: 

Total compatibility. 

Each Viewmaster 80 includes our powerful Apple- 
Works expand software, allowing AppleWorks to run on 
the If+ with only 64K (or more) Memon. (We recom- 
mend the RamFactor memory card, but any compatible 
Apple memory card will work.) The software provides 
our full range of AppleWorks enhancements, including 
expanded records, word processor, multi-disk saving, 
time and date display on screen with any PRO-DOS 
clock, and more! 

The Viewmaster 80 works with all 80 column 
applications, including DOS 3.3, PRO-DOS, CP/M, 
Pascal, WordStar, Format I, Applewriter I, dBase H, 
Visicalc, Multiplan, and Aiedreds of others — includ- 
ing AppleWorks. 

Here are just a few of the powerful features the 
Viewmaster 80 delivers for a great price ($149): 
¢ 80 Characters by 24 lines * Fully compatible with all 
Apple languages and software * Highest compatibility 
with existing 80 column software * Very low power con- 
sumption * High speed (18 MHZ.) scroll rate * Upper and 
lower case characters and true descenders, both inverse 
and normal, all on-screen editing functions are sup- 
ported ¢ User-definable cursor shape * Compatible with 
Apple I, If+ and He ¢ Five-vear warranty 

Call today to order or for more information, 9 am. 
to ll p.m. seven days, or send check or money order to 
Applied Engineering. MasterCard, VISA and C.O.D. wel- 
come. Texas residents add 34%% sales tax. Add $10.00 
outside U.S.A. 

CP Mis a registered trademark of Diggtal Research. Inc 


Fu wl Applied Engineering 
P.O. Box 798, Carrollton, TX 75006 
(214) 241-6060 
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#.--Print the front side--------- 
JSR CROUT 
LDA #2 Print front side of 1/2--7/8 


0 T 
O800=- AQ 00 0 LDA #$C500 Hook into my printer card 
0802- 85 36 0 STA 6 in slot 5 
O804- AQ C5 0 LDA /$C500 (Yours is probably in slot 1) 
0806—- 85 37 0 TA 1 

0 #&--Setup Printereo-------------- 
0808- AO 00 0) L Send setup characters to my 
O80A- B9 AD 08 0.1 LDA STRING,Y printer interface card 
O80D- 20 ED FD 0 JSR COUT and to my Epson EX-800 
0810=- C8 0 INY Printer. 
0811- CO 12 0 CPY #STR.LEN 
0813- 90 F5 0 BCC .1 

0 #&---Find the panes  abutantastubatentatebadateneetetan 
0815=- 20 D5 08 : JSR BUILD. POINTER. TABLE 

0 
081B=- AQ 02 0 
081D=- A2 0 0 LDX #7 
O81F=- 20 68 08 0 JSR PRINT. TWO. PAGES 
0822- AQ O4 0 LDA #4 Print front side of 3/4--5/6 
O824- A2 0 0 LDX #5 
0826= 20 68 08 0 JSR PRINT. TWO. PAGES 
0829- AQ 00 0 LDA #0 Print front side of FC/0--9/BC 
O82B- A2 0 LDX 


#9 
JSR PRINT. TWO. PAGES 
#.-<Print the back side---------- 
JSR BT AE PAPER OVER 


0833- 20 8E FD JSR CROU 
0836- AQ 08 LDA #8 Print back side of 1/2--7/8 
0838- A2 01 LDX #1 
083A- 20 68 08 JSR PRINT. TWO. PAGES 
)83D=- A9 06 LDA #6 Print back side of 3/4--5/6 
%83F= A2 03 LDX #2 
0841- 20 08 JSR PRINT. TWO. PAGES 
#~--Disconnect Print er----------- 
O844—- AQ 00 LDA #$C300 Rehook the 80-column screen 
UB46—- 85 36 STA 6 
A9 LDA C300 
O84A- 85 37 STA $37 
O84C- 60 4 RTS 
# Printer Setup String 
O84D=- 09 HE STRING .HS 09.4E Turn off Video 
0851- 1B D2 01 -HS 1 tet Subscript 
O854- 1B 05 ~HS 1B.41.05 5/72 inch vertical 
0857=- 1B 23 ~HS 1B.23 Cancel 7 
0859- 1B BD ~HS 1B. 3D Bit 7 = 0 
O85B- 1B 4D ~-HS 1B.4D Elite 
O85D- 1B OF ~-HS 1B.0F Condensed 
1l2—- STR.LEN .EQ #-STRING 


§ Lance wee wwe ene ewww meeneesoenewe 
FLIP. PAPER .OVER 
O85F- AD 00 CO 1 LDA $C000 Really just wait until I 


open ~ as 4 BPL nee nua rien oe ever: 
- C STA Signa y typing any key. 
0867- 60 RTS 

PRINT. TWO. PAGES 
0868- 83 1B STA LPAGE Left Page Number 
O86A- 1C STX RPAGE Right Page Number 
O86C= AX 32 LDA #50 Print 50 Lines per Page 
O86E- 85 1D ‘STA LINES 

#---Print left side-------------- 
0870- AQ 2A 1 LDA #42 Right Page begins in col. 43 
O872=- 85 1E STA TABBER 
O874- AQ 2 LDA #35 Left Margin to center on page 
0 g- 85 2 STA MON .CH 
) -~ A5 1 LDA LPAGE 
O87A=- 20 Al 08 JSR SETUP. PAGE. PNTR 


ov) 
co 
y — 
] 
Lad 
ee ee ee me ek ek ee ek ek ee ek we ee me eh meh ee a ke ee eh ek ek ee eh ee meh ce ee ee ch eh me ek ce me eh ek me ek ee ek ek eh we ak ed eed ed ed od 
WWW DOV\OLOL.O1O 0D 0D 09 09009 0 (00000 COSI I 9 SI 9 9 ID AHANR HADDAD HAMNOININANI ONO ES SSS SELES SWWWWWW WWW PAD NO PO POP A APO PO 


DD EWS SOO OA ON ENO O88 ON ES oS DAO ee ee ea wae a eS oa ew een So eee oe DD ot COO OI OWN WA 


alolelelelelolelosolelolozalololololol(esololololejelolololoelolelolalelelololojojolololofelolelojojolola) 


O87D=- BO 0 BCS . -..end of this page 
O87F- 20 BD 0 JSR PRINT.LINE 

0882= 20 CB 0 -2 JSR TAB.TO.MIDDLE 

0885- A5 1B LDA LPAGE 

0887- 20 B2 08 JSR UPDATE. PAGE. PNTR 
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#..=Print right side--------.—---.— 
1319 Sm Prag rags bt 


1C 

O88C- 20 Al 08 1990 JSR SETUP. PAGE. PNTR 
O88F- BO 03 2000 BCS .3 -..end of this page 
op ake 20 BD 08 2010 JSR PRINT.LINE 
O894- 20 8E FD 2020 .3 JSR CROUT 
O897= A5 1C 2030 LDA RPAGE 
0899- 20 B2 08 ae : : JSR UPDATE. PAGE. PNTR 
O89C- C6 1D 2060 DEC LINES Count down for the page 
O89E- DO DO 2070 BNE .1 More lines on this page 
O8A0- 60 2080 RTS Finished 

2090 Beppe nn ne nnn ww en nw 

2100 SETUP. PAGE. PNTR 
O8Al—- OA 2110 ASL Double page number for index 
O8A2—- AA 2120 TAX 
O8A3- B5 00 2130 LDA PAGES,X Get pointer to current 
O8A5= 85 19 2140 STA PNTR to current prace on page 
O8A7T=- DD 4A 09 2150 CMP SPAGES+2,X -s-compare to end of page 
O8AA- B5 01-2160 LDA PAGES+1,X 
O8AC- 85 1A 2170 STA PNTR+1 
O8AE- FD 4B 09 2180 SBC SPAGES+3,X Leave .CS. if end of page. 
O8Bi- 60 a RTS --.or .CC. if not end yet. 

2210 UPDATE. PAGE. PNTR 
O8B2- OA 2220 ASL Double page number for index 
O8B3- AA 2230 TAX 
O8B4- A5 19 2240 LDA PNTR Save current place on page 
O8B6- 95 00 2250 STA PAGES ,X for next line 
O8B8- A5 1A =. 2260 LDA PNTR+} 
O8BA- 95 01 2270 STA PAGES+1,X 
O8BC- 60 2280 RT 

2290 Ba mm wm nnn ewww mew ewww owen nee ene 

2300 PRINT.LINE 
O8BD- 20 33 09 2310 .1 JSR NEXT.CHAR Print up to <RETURN> 
O8CO- BO 0 2320 BCS .2 »-eor end of text 
O8C2=- C6 1E Sano DEC TABBER Count the character 
O8C4- 20 ED FD 2340 JSR COUT and print it. 
O8C7T= 4C BD 08 2350 JMP .1 »».-next character 
O8CA- 60 2360 .2 RTS 

Sake Bee mw www wee ween w one 

2380 TAB.TO.MIDDLE 
O8CB- AQ AO 2390 .1 LDA #" * TABBER has remainin 
O8CD- 20 ED FD 2400 JSR COUT blank count to reac 
O8DO0- C6 1E 2410 DEC TABBER the right side. 
O8D2- DO FT 2420 BNE .1 
O8D4- 60 ss 7 

oieo BUILD. POINTER. TABLE 
O8D5=- AY 21 2460 LD Start at the beginning 
O8D7- 85 19 2470 STA PNTR of my text buffer. 
O8D9- 85 00 2480 STA PAGES First page starts here. 
O8DB- AQ 21 2490 LDA /BEGIN Hi byte of same... 
O8DD- 85 1A 2500 STA PNTR+1 
O8DF- 85 01 2510 STA PAGES+1 
O8E1- AQ 01 2520 LDA #1 for PAGE = 1 to 11 
O8E3- 85 18 $2 : STA PAGE 
O8E5= 20 F 09 2550 .1 JSR SCAN.TO.END.OF. PAGE 
O8E8- A5 1 2560 LDA PAGE Save pointer to beginning of page 
O8EA- OA 2570 ASL double for index 
O8EB- AA 2580 TAX 
O8EC- A5 19 2590 LDA PNTR It is also END+1 for 
O8EE- 95 00 2600 STA PAGES ,X previous page. 
O8FO- 9D 48 09 2610 STA SPAGES ,X 
O8F3- A5 1A 2620 LDA PNTR+1 Hi-byte of same. 
O8F5=- 95 01 26 30 STA PAGES+1,X 
O8F7- 9D 49 09 2610 : STA SPAGES+1,X 
O8FA- E6 18 2660 INC PAGE next PAGE 
O8FC= A5 18 2670 LDA PAGE 
O8FE=- C9 OC 2680 CMP #12 (up to 12) 
0902- 60 AG RTS finished 
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Serial Pro’ 
The intelligent 
multifunction card from 
Applied Engineering. 


Serial Pro is a powerful multifunction card for the Apple He, 
II+, lcs and compatible computers. Serial Pro combines a 
powerful serial port for interfacing to a printer, modem or other 
serial device, with a full function clock/ calendar. Serial Pro's serial 
port is compauble with virtually all letter quality and dot matrix 
printers, including Apple's Imagewriter and Imagewriter II, and 
can communicate with the fastest extemal modems at baud rates 
from 50 to 19,200. 

Set up is easy, because unlike other cards, there are no switches 
tO program serial parameters or disks to use. Serial Pro has a 
built-in setup screen that allows all parameters to be set And on- 
screen help that makes it super-easy. An on-board battery stores 
your selections for over 20 years, but vou can change them at 
any time. Serial Pro is the perfect upgrade for Super Serial card 
owners looking for more performance or a built-in clock 


Serial Port Features) e Fully Super Serial Card compauble but 
more versatile and easier to use e Compatible with printers 

e Compatible with modems — e Prints graphics to printer (without 
software) in nonmal mode, 90° rotation, double size, side by side, 
and black/white inversion e Variable word length, number of 
stop bits and parity selection e Crustal conuolled circuits are 
used to provide ultra accurate baud rates. 


Clock Calendar Features) ¢ ProDos, DOS and AppleWorks 
compatible. Displays ime and date on the AppleWorks screen 
e Automatically ime and date stmps AppleWorks files e 20 
vear auto recharging nickel-cadmium battery e Realtime inter: 
mpts e@ Built-in on screen time and date settings (no software 
needed) ¢ Does not use phantom slots. 

Serial Pro is perfect for Apple He. H+, Has or compatible 
owners in need of a serial port or clock/ calendar or both. But 
unlike other multifunction cards on the market, Serial Pro does 
not use phantom slots, so all the slots in your computer are 
useable. 

Serial Pro comes complete with manual cable and instructions 
for connecting to all the leading printers and modems. 

Serial Pro $159 


Order Today! See your dealer or call Applied Engineering, 9 am. 
to 11 p.m. 7 days Or send check of money order to Applied 
Engineering. MasterCard, VISA and C.O.D. welcome. Texas 
residents add 5%% sales tax. Add $10.00 outside U.S.A 


ZA. APPLIED ENGINEERING” 
The Apple enbancement experts 
(214) 241-6060 


P.O. Box 798, Carrollton, TX 75006 


With the 
7-80 Plus, run 
over 5000 new 

CP/M programs. 


Now, get two computers 
in one and all the 
advantages of both. 


nter the CP’ M word with the new Z-80 Plus card from 
E Applied Engineering, and inuoduce vour Apple He. Hos or 
11+ to thousands of CP M programs. Only the 7-80 Plus comes 
standard with the new 5.1 software. the most advanced system 
ever for cunning CPM programs. 

The new 5.1 Boasts advanced features like built-in disk 
emulation for popular memory: expansion boards. boosting both 
system speed and storage capacitv. And menu-driven utilities that 
let you get to work faster. The Z-80 Plus also lets vou run older 
CP/M programs — all the wav down to Version 1.6 (2.2 is the 
most popular). 

The 2-80 Plus is the only card on the market capable of 
accessing More than O4K. If vou have an extended 80-column 
card, all 128K is usable. And if vou have RamWorks. RamFactor, 
GsRam, GsRam Plus. or an Apple memory card in vour Ie. Hos or 
I+, up to LOR8K is available. 

Lach 2-80 Plus comes with our CP. M Ram Drive software, 
enabling most memory cards to work as a high-speed Ram disk 
so CP/M software can run up to Meet dimes faster, So packages 
like WordStar, dBASE If, Turbo Pascal and most others run at 
blinding speed. 

Simph: plug the Z-80 Plus into any slot in your Apple. You'll 
get the benefits of two computers in one — all at.an unbelievably 
low price (onl: $149'). 


e Fully compatible with ALL CP/M software — e Fully compatible 
with 54" and 32" disk drives as well as most hard disks includ- 
ing the Sider —@ Fully compatible with Microsoft disks (no pre- 
boot required) — e Specifically designed for high speed opera- 
ton = @ Runs WordStar, dBASE I, Turbo Pascal. and ALL other 
CP/M software with no pre-boot — e Semi-custom LC. and low 
parts count allows Z-80 Plus to fly through CP/M programs with 
exuemely low power consumption (we use the 7-40B) — e Does 
EVERYTHING other 7-80 boards do, pits Z-80 interrupts 
e Five-vear warranty 

To get your 27-80 Plus or for more information see your 
dealer, or call 214-241-6060 9 am. to 11 p.m. seven days. or send 
check or money order to Applied Engineering. MasterCard. VISA 
and C.O.D. welcome. Texas residents add 5'6% sales tax. Add 
$10.00 outside USA 


LAL Applied Engineering” 
P.O. Box 798, Carrollton, TX 75006 
(214) 241-6060 


CPM a registered: trademark of Diyid Research 
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2720 SCAN.TO.END.OF. PAGE 


0903= 20 OA 09 2730 JSR are aries 
0906= 20 13 09 2740 JSR SCAN.TO.END.OF.CURRENT. ENTRY 
0909- 60 2750 RTS 

2760 Benen nn ne nnn nnn wn wwe 

2770 SCAN. 32.LINES 
O90A- A2 20 2780 LDX #32 
090C=- 20 2D 09 2790 .1 JSR SCAN.TO.NEXT.LINE 
O90F- CA 2800 DEX 
0910=- DO FA 2810 BNE .1 
J912= 60 pee0 RTS 

2840 SCAN.TO.END.OF.CURRENT. ENTRY 
0913= 20 2D 09 2850 .1 JSR SCAN.TO.NEXT.LINE 
0916= 20 23 09 2860 JSR NEXT.CHAR 
0919=- 90 2870 BCC .1 -eenot <RETURN> or end-of-text 
091D=- 20 33 09 2890 .2 JSR a ena 
0920- FO 2900 BEQ . eee found end-of-text 
0922= BO FI 2910 BCS .2 ~eefound another <RETURN> 
O924- AS 19 2920 LDA PNTR Backup the text pointer 
032 - DO 02 o8io BNE .3 to the <RETURN> 
0928— C6 1A 2940 DEC PNTR+1 
092A- C6 19 2950 3 DEC PNTR 
092C- 60 2960 . RTS 

a8 ho #222 ee ee en ene oe 

2980 SCAN.TO.NEXT.LINE 
092D=- 20 33 09 2990 .1 JSR NEXT.CHAR 
0930- 90 F 3000 BCC .1 oo not end-of-text or <RETURN> 
0932= 60 4020 RTS 

030 # Get next character from text buffer 

3040 # Return .CC. if not <RETURND or end-of-text 

050 # CS. and .EQ. if end-of-text 

: : : -CS. and .NE. if <RETURN>D 

O80 NEXT.CHAR 
og 3k- 38 090 SEC Return .CS. if <eot> or <return> 
0934= AO 100 LDY ie 
0936- Bi 19 110 LDA (PNTR),Y 
0938- FO 3120 BEQ .2 ---it is end-of-text 
093A- E6 19 31Re INC PNTR 
093E- E6 1A 3150 INC PNTR+1 
0940- C9 8D 3160 .1 CMP i 
O942- FO 0 3126 BEQ . 
O94k- 18 180 CLC 
0945- 60 3190 .2 RTS 
0946- C8 3200 .3 INY Return .CS. and .NE. if <RETURN> 
0947- 60 3210 RTS 

3550 $e eww ne mew ewww mew won nwe 
0948- At SPAGES .BS 24 

3240 8 nw nn nw nen eee ene ee 
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